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Introduction 

In  many  ways  a  computer  is  an  ideal  games  opponent. 

Unable  to  gloat  in  victory,  gracious  in  defeat,  it  is  tireless,  patient 
and  infinitely  available.  Although  it  cannot  supply  the  human  by¬ 
play  which  can  be  as  much  a  part  of  the  fun  as  the  actual  game  itself 
when  played  against  other  people,  the  computer  seems  the 
perfect  companion  with  which  to  while  away  the  hours. 

No  matter  why  you  think  you  bought  your  Spectrum,  I  bet  you 
spend  at  least  some  of  your  computer  time  playing  games,  and 
that's  where  this  book  comes  in.  You'll  find  a  wide  variety  of  games 
here,  from  board  games  like  CHESS  and  CHECKERS,  arcade 
action  in  programs  such  as  JOGGER  and  LEVEL  FIVE,  to  our  major 
adventure  program,  REVENGE  OF  CASTLE  DREAD.  We've  aimed 
for  worthwhile  games  of  lasting  interest,  as  well  as  ones  which  will 
give  you  programming  and  game  hints  and  ideas  to  apply  to  your 
own  computer  work. 

To  help  you  get  the  most  out  of  this  book,  I've  written  detailed 
introductions  to  the  games.  In  most  cases  the  introduction  takes 
you  through  the  program  line  by  line,  explaining  the  tricks  the 
programmers  have  used  and  suggesting  how  these  can  be  applied 
in  your  own  programs  and  games.  Several  programs  also  contain 
suggestions  on  how  you  can  tailor  a  program  to  your  own 
specifications,  improving  and  developing  it  as  you  wish. 

The  majority  of  the  programs  in  this  book  were  written  by  Tim 
Rogers,  Paul  Toland  and  myself.  Tim  and  Paul  are  both  students 
(Tim  in  London,  and  Paul  in  Belfast)  and  they  deserve  to  be 
congratulated  on  the  quality  and  originality  of  their  work  which  is 
reflected  in  the  programs  I  have  selected  for  this  book.  A  full  list  of 
program  authors  is  on  page  185. 

It  is  time  now  to  start  punching  code  into  your  Spectrum  so  you 
can  enjoy  these  games  which  truly  deserve  the  adjective 
'dynamic'. 


Tim  Hartnell, 
London,  March  1983 
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Arcade  Games 

LEVEL  FIVE 

No  need  for  panic,  fear  or  tension,  because  here  comes  LEVEL 
FIVE,  a  fast-moving  adaptation  of  an  arcade  favourite. 

The  playing  area  is  made  up  of  five  levels  connected  by  a  set  of 
ladders.  Four  monsters  start  at  the  lowest  level  and  make  their  way 
to  the  top.  Your  task  is  to  contain  them  in  the  prison  underneath  the 
bottom  level.  The  main  problem  is  that,  since  these  particular 
monsters  always  go  upwards,  the  only  way  to  get  them  to  the 
bottom  is  to  dig  holes  in  the  floors  for  the  monsters  to  fall  through. 
You  can  dig  a  hole  by  pressing  the  "0",  as  long  as  there  is  no  other 
hole  on  the  screen.  Each  hole  will  only  last  for  a  short  period  before 
winking  out  of  existence. 

You  control  your  motion  using  the  following  keys:  "5"  (left),  "8" 
(right),  "6"  (up),  and  "7"  (down).  The  game  ends  when  you  have 
contained  all  the  monsters.  At  this  point,  you'll  be  told  how  long  it 
took  you.  The  game  ends  prematurely  if  you  are  jumped  on  by  a 
monster.  As  is  often  the  case  with  Spectrum  programs,  the  quality 
of  the  graphics  is  only  hinted  at  by  the  sample  printout.  You'll  find 
this  program  very  fast  and  addictive.  Program  author  Paul  Toland's 
best  score  is  60  jiffies.  You  are  challenged  to  beat  that. 

Line  1  shows  you  which  graphics  are  on  which  keys,  with  the 
bricks  on  the  "A",  sections  of  ladder  on  "B",  you  (the  running 
person)  on  "C"  and  the  handsome  monsters  on  "E".  Line  25  sends 
action  to  the  subroutine  at  line  9100  after  the  INK  has  been  set  at 
white  and  the  PAPER  and  BORDER  to  blue.  In  this  subroutine  the 
instructions  are  printed  out  on  the  screen.  Line  91 30  waits  until  you 
press  a  key,  then  clears  the  screen.  The  balance  of  the  instructions 
then  appear,  along  with  a  "Good  luck"  message,  and  the  RETURN 
in  line  9160  sends  action  back  to  30,  where  the  subroutine  from 
line  9000  is  called.  9000  starts  by  RESTOREing  the  DATA  pointerto 
itself  (which  has  the  effect  of  restoring  it  to  the  next  item  of  DATA 
after  the  number  which  follows  the  word  RESTORE).  This  ensures 
that  when  the  I  and  J  loops  are  run  (lines  9001  to  9040)  the 
numbers  read  to  be  POKEd  into  the  graphics  are  from  lines  9050, 
9060,  9070,  9080  and  9090  and  not  from  line  1070. 

Once  the  graphics  have  been  defined,  the  program  goes  (via  the 
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second  statement  in  line  30)  to  the  subroutine  from  line  700  which 
prints  up  the  five  brick  pathways,  one  for  each  level.  Line  910 
RESTORES  to  itself,  in  the  same  way  as  the  RESTORE  9000  we 
looked  at  a  moment  ago,  moving  the  DATA  pointer  to  the  first  item 
of  DATA  which  follows  the  RESTORE.  In  this  case  it  is  line  1030 
which  contains  the  information  used  in  the  J  and  I  loops  (1000  to 
1050)  to  put  the  ladders  in  place.  Line  1055  blanks  out  the  bottom 
line  of  the  screen,  and  the  program  returns  to  line  40,  where  the 
real  fun  begins. 

Y  and  X,  the  co-ordinates  of  the  figure  (you),  are  set  at  14  and  3 
respectively  in  line  40.  M,  which  counts  the  monsters,  is  set  to  4  in 
line  50,  and  an  array  is  created  in  the  second  part  of  this  line  to  hold 
the  monsters  before  they  are  placed  at  the  start  with  the  loop  inline 
60.  The  H  array  (to  hold  your  hole)  is  DIMensioned  in  line  70,  and 
both  INK  and  PAPER  set  to  8  in  line  80,  just  before  you  are  finally 
printed  on  the  screen  in  line  90. 

The  variable  TIME  (remember  Paul's  best  score  of  60)  is  set  to 
zero  in  line  100,  and  subsequently  incremented  in  395,  where  its 
current  value  is  printed  on  the  screen.  The  title  of  the  program  is 
placed  at  the  top  of  the  screen  (110),  leaving  a  slot  for  TIME  to 
appear,  and  the  flag  FREE  is  set  to  zero  in  line  190. 

The  I  loop  checks  the  position,  and  controls  the  action,  of  the 
monsters.  It  runs  from  line  200  to  390  and  holds  within  itself  all  the 
important  actions  of  the  program.  These  include  keeping  track  of 
the  monsters'  vertical  positions  (line  205),  reprinting  them  (2 10  and 
220),  checking  their  immediate  environment  (lines  225  and  230) 
and  either  going  to  line  430  if  they  have  landed  on  top  of  you  or  to 
280  if  they  are  climbing.  The  monster's  horizontal  coordinate  is 
incremented  in  line  240,  and  the  following  line  reverses  the 
monster's  direction  of  travel  if  it  has  reached  either  end  of  a 
walkway.  'Monster  away!'  is  the  cry  if  it  steps  over  a  hole  (line  270) 
before  it  is  reprinted  in  its  new  position  by  line  280. 

A  hole  lasts  for  40  cycles  of  the  program  and  line  295  fills  in  a  hole 
after  this  time.  Line  300  reads  the  keyboard,  jumping  over  most  of 
the  next  routine  if  there  are  no  keys  pressed  when  it  comes  to  300. 
If  it  reads  a  zero,  it  knows  you  want  to  dig  a  hole.  If  H(3)  equals  zero, 
the  computer  knows  there  are  no  other  holes  on  the  screen,  so 
sets  the  coordinates  of  the  hole  at  the  same  position  across  the 
screen  as  you  are,  and  one  line  further  down,  before  printing  a  hole 
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in  that  position,  and  then  jumping  to  line  390. 

The  computer  knows  that  if  you  are  pressing  zero  in  line  31 5  you 
will  not  be  pressing  "5",  "6",  "7",  or  "8"  in  the  nextfew  lines,  so  it 
keeps  the  program  running  at  maximum  speed  by  jumping  overthe 
lines  it  knows  it  will  not  need  to  process  this  time  around.  Line  317 
checks  to  see  if  you  are  pressing  any  keys  other  than  those  lying 
between  "4"  and  "9"  and  if  you  are  not,  jumps  to  390.  The  next  line 
puts  you  in  position,  and  line  325  POKEs  the  ATTRibute  address  of 
your  position  with  15,  to  make  you  vanish  from  your  present 
position,  prior  to  being  reprinted  in  line  390  (ATTRibutes  are  stored 
after  the  display  file,  from  address  22528). 

Line  327  checks  to  see  whether  you  are  on  a  walkway,  and  on 
discovering  you  are  not,  moves  to  line  350  to  see  if  you  wish  to 
move  up  or  down  on  a  ladder.  N,  the  value  used  for  POKEing  the 
ATTRibute  of  your  position,  is  set  to  your  current  ATTRibute  in  line 
370,  before  you  are  printed  in  line  380.  Line  330  is  reached  if  you 
are  on  a  walkway,  where  the  keyboard  moves  you  in  accord  with 
your  wishes  expressed  by  pressing  "5"  or  "8",  modified  by  line 
340  which  stops  you  trying  to  fall  off  the  edge  of  the  world  at  either 
end.  Line  390  starts  the  whole  cycle  again. 

After  you've  been  through  the  I  loop  four  times,  the  variable 
FREE  is  checked  to  see  if  all  monsters  have  been  captured,  and  if 
they  have  not,  returns  to  190  to  keep  the  game  underway.  Line 
41 0  signals  that  you've  got  them  all,  and  430  that  they've  grabbed 
you.  You  are  offered  a  new  game  in  line  500  and  any  input  except 
"N"  or  "n"  will  will  get  you  that  new  game. 

1  REM  UDG  *.T=fi  R=B  %=C  ft=E 

2  REM 

10  REM  LEUEL  5  P  « T 01_ AND  . 

20  INK  7:  PAPER  1:  BORDER  1:  C 

L-5 

25  GO  SUB  9100 

30  GO  SUB  9000:  GO  SUB  700 

40  LET  X  =14 :  LET  Y=3:  LET  C=1 
50  LET  M=4:  DIM  MfM,3) 

6©  FOR  1=1  TO  M:  LET  M(I,1>=19 
:  LET  MfIji2i=I*3:  LET  M(I,3i=l-I 
NT  (RND  +  .  5)  *2:  PRINT  AT  19^I*-3;** 
46”  :  NEXT  I 

70  DIM  H(3J:  LET  H(1)=0:  LET  H 
(2)  =0  :  LET  H  (3)  =0 
©0  INK  B:  PAPER  B 

90  PRINT  AT  Y/X;  INK  5; 
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1®0  LET  N=15:  LET  TIME=0 
110  PRINT  RT  0,0;  INVERSE  1;  "LE 
VEL  5  TIME=  LEVEL  5" 

190  LET  FREE=0 
200  FOR  1  =  1  TO  4 

S05  IF  MCI,1J=21  THEN  GO  TO  295 
207  LET  FREE=1 

210  LET  D=MCI,1J:  LET  A=M (1,2) 
220  PRINT  RT  D, R;  OVER  1;  "M" 

225  IF  RTTR  CD-I, A> =13  THEN  GO 
TO  4-30 

230  IF  RTTR  CD-I, fi) =14  THEN  LET 
D=D— 1:  GO  TO  2S0 
240  LET  R=R+M  Cl, 3) 

250  IF  R=0  OR  A=3i  THEN  LET  M  C I 
,  3>  =  — M  Cl,  3) 

250  IF  RTTR  CD,  AX  =13  THEN  GO  TO 
430 

270  IF  RTTR  CD+1,R>=15  THEN  LET 
D=D*4;  BEEP  .1,30:  IF  B>21  THEN 
LET  D=2i 

280  PRINT  RT  D,R;  OVER  l,  ***” 

290  LET  M ( I , 1 ) =D :  LET  MCI,2)=R 
295  IF  HC3)>0  THEN  LET  H  C3) «H (3 
) +1:  IF  HC3)=40  THEN  PRINT  INK  2 
j  PRPER  7;  RT  H  C 1)  ,  H  C2)  ;  "ST*  :  LET 
HC3J=0 

300  LET  I $  =  INKEY  $ 

310  IF  1*=**"  THEN  GO  TO  390 
315  IF  I*="0"  RND  H (3) =0  AND  RT 
TR  i'Y+1 ,  X)  =58  THEN  LET  HC IX  =Y  +  1 : 

LET  HC2)=X;  LET  HC3)=i:  PRINT  P 
RPER  1;  INK  7;  RT  H  .f  1)  ,H  (S)  ;  ”  "  : 
GO  TO  390 

317  IF  1$  < "S"  OR  1$  > "8”  THEN  GO 
TO  390 

320  PRINT  RT  Y,X;  OVER  1.; 

325  POKE  22528 +Y  *32 +X , N 
□27  IF  CY  +1)  S4-  <  >  INT  C  CY+1X  X4X  T 
HEN  GO  TO  350 

330  LET  X=X+  CI*="8")  -tI$=,,5,*) 
34©  LET  X=X+ CX<0J - CX>31X 
350  IF  I$="7"  RND  RTTR  CY-1,XJ= 
14  THEN  LET  Y=Y-1 
380  IF  I*  =  "6*‘  RND  RTTR  CY+1  ,XX  = 
14  THEN  LET  Y=Y+1 
370  LET  N=RTTR  CY,X> 

380  PRINT  RT  Y,X;  OVER  1;  INK  5 


39©  NEXT  I 

395  LET  TIMEsTIME+l:  PRINT  RT  0 
, 17; TIME 

400  IF  FREE  THEN  GO  TO  190 
410  PRINT  OVER  1; RT  9,5; "fiLL 
MONSTERS  CAPTURED":  BEEP  3,30 
420  GO  TO  440 
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4.30  PRINT  RT  Y  ,X;"*";  OVER  1;  RT 
9,5; "THE  MONSTERS  GOT  YOU": 
SEEP  3,-20 

4.40  PRINT  RT  13, 10;  "AFTER  R  TIM 
E  OF  " ; TIME 

500  INPUT  "ANOTHER  GAME  ?"J 
510  IF  R*o"N"  RND  A*<>"n"  THEN 

RUN 


690  STOP 

TS©  FOR  1=1  TO  5 

S©0  PRINT  INK  3j  PAPER  7j  RT  1*4- 

"§35  NEXT  I 
91©  RESTORE  910 
1©00  FOR  U=1  TO  8 
1010  READ  X,Y,L 

1020  FOR  1=0  TO  i_  „ 

103©  PRINT  INK  6;  RT  Y  +  I..X; 

104-0  NEXT  I 
1©50  NEXT  J 

1055  PRINT  RT  31,0;  PAPER  ©,, 


1060  RETURN 

1070  DATA  1,3. ,5,35, 3, 4.,  8,7, 8, 30, 
7, 4-,  30, 11, 8, 2,  15, 4-,  17, 3, 4-, 20, 15, 

A. 


8999  STOP 

9000  RESTORE  900© 

9001  FOR  1=0  TO  4. 

9010  FOR  U=©  TO  7 

9020  READ  N:  POKE  USR  "A"+I*8+J, 
N 

9030  NEXT  U 
904-0  NEXT  I 
904.5  RETURN 


9050  DATA  307,207,207,0,0,136,13 
5,126 

906©  DATA  195,255,195,195,195,25 
5,195  1Q5 

3070*" DATA  56,14-4.,  124,20,4-8,4.7,34. 
36 


9080  DATA 
9090  DATA 
, 255 , 153 


28,9,62,40, 12,116,68,6 
102, 6© , 126 , 153 , 187 , 255 


91©0  PRINT  INVERSE  1;  "  L.EUEU 


5  LEVEL  5 


3110  PRINT  ,, "There  are  four  eon 
sters  moving  around  the  screen 
,  attempting  to  get  to  the  top 
.  There  are  5  levels  connected 


by  ladders  and  your  tasK  is 

to  imprison  the  monsters  in  t 

he  dungeon  below  the  bottom 

level.  Your  only  means  of 

getting  the  monsters  down  the 
screen  is  to  dig  a  hole  in  one 
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of  the  levels  which  the  monster 
s  will  fall  through.  However 

,  each  hole  will  vanish  after 

a  time  and  only  1  hole  may  a 

xist  at  any  time." 

912®  PRINT  "YOU  Will  die  if  jump 
ad  on  by  a  monster  and  your  ai 
m  is  to  have  all  4-  monsters  impr 
isoned  in  the  fastest  possibl 

e  time.  Fl-RSH  U  "Press  an 

y  Key  to  continue. 

9130  PRUSE  0:  CLS 

914-0  PRINT  "Use  5 ,  &  *  7  j  8  for  move 
s&ent  and  ‘O'  (ZERO)  to  dig  a 

hole.  GOOD  L.UCK.  .  .you  '  l  l  P 

ee d  i  t  !  i  " 

9150  PAUSE  200:  C1_S 
9160  RETURN 


EUEL  5  TIME -Ml 


CIRCUS 

CIRCUS  is  an  arcade  game  somewhat  like  'Breakout',  but  involving 
a  far  more  interesting  scenario  and  a  greater  challenge  to  the 
player.  You  have  to  try  and  burst  the  balloons  at  the  top  of  the 
screen  by  bouncing  two  clowns  off  the  see-saw  at  the  bottom  of 
the  screen.  You  control  the  see-saw  with  the  "5"  and  "8"  keys. 
Pressing  the  "1"  key  will  cause  the  clown  on  the  see-saw  to 
change  ends.  The  falling  clown  must  land  on  his  part  of  the  see¬ 
saw  to  spring  the  other  one  into  the  air.  Ideally,  he  should  land  on 
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the  extreme  edge  of  the  plank.  If  he  lands  near  the  middle,  the 
other  clown  will  not  rise  high  enough  to  hit  any  of  the  balloons. 

The  game  is  so  difficult  to  master  that  we  modified  the  original 
idea  to  include  additional  clowns,  just  to  give  you  a  chance  to  burst 
a  reasonable  number  of  balloons. 

When  you  run  the  program,  you'll  see  the  instructions  displayed 
as  follows: 


CIRCUS:  INSTRUCTIONS. 

The  circus  has  come  to  town,  and  the  star  attraction  is  the 
clowns'  see-saw  act. 

Two  clowns  bounce  from  a  see-saw  to  burst  balloons  high 
in  the  air.  The  falling  clown  must  not  hit  the  ground  or  the 
wrong  side  of  the  plank.  If  he  lands  close  to  the  middle  then 
the  other  clown  will  not  rise  high  enough  to  hit  any  balloons. 
The  circus  only  has  6  clowns,  so  be  careful. 

You  control  the  see-saw  with  keys  5  and  8.  You  can  make 
the  clown  on  the  see-saw  change  ends  by  pressing  "1". 
Press  "N"  to  stop,  or  any  other  key  to  start 


And  here's  what  the  program  looks  like  when  it  is  under  way: 


Circus  score:  a«*  Circus 

***********  ************** 
**********  *****  ***** 
********  ******  *** 
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The  listing  shows  the  characters  used  for  the  user-defined 
graphics  in  line  5,  with  "A"  for  the  see-saw's  pivot,  "B"  for  the 
clown  and  "C"  for  the  balloon.  After  the  random  number  generator 
is  seeded  in  line  20,  the  program  goes  to  line  80  where  OVER  is  set 
to  1,  the  INK  to  black,  PAPER  to  white  and  the  BORDER  to  red 
before  the  screen  is  cleared  to  establish  the  PAPER  colour. 

From  here  the  program  moves  to  the  subroutine  from  line  900, 
where  a  further  two  subroutines  (from  1100  and  from  1020)  are 
called.  The  first  of  these  (from  1 1 00)  prints  the  title  and  instructions 
on  the  screen  and  the  second  (from  1 020)  defines  the  graphics.  On 
returning  from  this  subroutine,  the  frame  around  the  screen  is 
drawn  (lines  902  to  905)  and  the  balloons  are  put  into  place  by  the  I 
loop  from  910  to  930).  You'll  see  that  the  I  loop  also  places  the 
'clowns  in  reserve'  on  the  left  hand  side  of  the  screen. 

A  number  of  variables  are  defined  in  the  next  two  lines.  SC  holds 
the  score  of  the  number  of  balloons  you've  hit  (which  is 
incremented  in  line  180).  SS  is  the  horizontal  position  of  the  base  of 
the  see-saw  which  is  used  in  line  50  to  place  the  see-saw  and  the 
clown,  and  in  the  following  line  to  draw  the  see-saw's  'plank' .  Note 
that  lines  40  and  60  are  a  subroutine  which  is  called  repeatedly 
during  the  running  of  the  program. 

M  counts  the  current  'clowns  in  play'  and  is  incremented  in  line 
300  after  being  sent  there  by  line  230.  The  BS  array  is  used  to  print 
26  blank  spaces  in  line  330  after  each  clown  has  had  his  day.  OD 
and  AN  control  the  position  of  the  clown.  Changing  these  to  their 
negatives  (line  107)  allows  the  clown  to  change  ends  of  the  see¬ 
saw.  OD  and  AN  are  used  in  lines  50,  260  and  280. 

The  variable  CA  is  used  to  detect  when  AN  should  be  changed 
(see  lines  95  and  270)  and  HL  is  set  in  line  250  and  used  in  160  to 
determine  when  the  Y  coordinate  of  the  current  clown  (the  vertical 
displacement)  should  begin  to  be  incremented  in  the  direction 
opposite  to  the  one  in  which  it  is  currently  moving  (see  160  and 
140).  X  is  the  starting  horizontal  coordinate  of  the  clown,  used  in 
line  1 30  and  incremented  in  line  1 40  by  A,  which  is  changed  in  line 
280  to  reverse  the  horizontal  movement  of  the  clown.  Y  (set  in  line 
950)  is  the  starting  vertical  coordinate  of  the  clown.  This  value 
starts  at  anywhere  between  5  and  8. 

Line  100  reads  the  keyboard  for  "5"  and  "8",  changing  the 
vertical  coordinate  of  the  see-saw's  base.  This  value  is  checked  in 


Arcade  Games  1 7 


the  following  line  (105)  to  ensure  you  are  not  attempting  to  move 
the  see-saw  too  far  to  the  left  or  right. 

5  REM  U.D.G.  *.=0  *-»B  *=C 
7  REM 

10  REM  CIRCUS.  P.TOLRND. 

1,5  REH  —  — .  — — _ _ _ _ 

2 0  RANDOMIZE 
40  GO  TO  80 

50  PRINT  AT  21,SS,*V*;AT  21, SS 

60  PLOT  SS *8-16, 7* (an=l> :  DRAW 
38, 7* -an;  RETURN 
80  OUER  1:  INK  0:  PAPER  7;  BOR 
0ETR  3 '  CLS 

85  GO  SUB  300:  GO  SUB  50 
90  GO  SUB  50 

95  IF  ca  THEN  LET  an=-an:  LET 

" 100  LET  SS«SS+ tINKEY$="8" J - (INK 
EY$="5”> 

105  LET  SS=SS  +  (SS=4)-(SSs2?) 

107  IF  INKEY*=*‘l*'  THEN  LET  sn  =  - 

an 

110  GO  SUB  50 

130  PRINT  AT  y,x;**£“ 

140  LET  X  =X  +a  :  LET  y  =y  +d 
150  IF  X  =3  OR  X  =28  THEN  LET  a  =  ~ 
a ;  BEEP  .01,1 
160  IF  y  <h l  THEN  LET  d=-d 
165  LET  nO=STTR  ( y ,X > 

167  print  AT  y,x;"4" 

170  IF  no  *56  THEN  GO  TO  210 
180  LET  S  C  =S  C  +61-no :  BEEP  .01,1 

0 

185  PRINT  AT  y,x;  OUER  0;"£";AT 
0,20; sc 

190  LET  d=-d 

195  IF  S  C  =260  THEN  GO  TO  340 
200  GO  TO  90 

210  IF  y  <21  THEN  GO  TO  90 
220  LET  diS=X-SS:  BEEP  .01,5 
230  IF  dis  < —2  OR  dis>2  OR  SGN  d 
iSO -an  THEN  GO  TO  310 
250  LET  hlsll-ABS  dis*5 
260  LET  X  =S S  +Od 
270  LET  OdsdiS;  LET  Ca  =1 
280  LET  a«SGN  od :  LET  d  =-l 
290  GO  TO  90 
310  LET  m  si * 1 

320  BEEP  .2,-10:  BEEP  .7,-20 
330  IF  ttt  <5  THEN  PRINT  AT  21,3; 
OUER  0;b$:  GO  SUB  950:  GO  SUB  50 
:  GO  TO  90 
335  BEEP  1 , -40 :  RUN 
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34-0  PRINT  RT  9,4-;  FLRSH  1;  -YOU 
MRDE  IT!  f  !  FULL.  SCORE" 

345  BEEP  1,20:  BEEP  2,30 
350  PRUSE  1:  PRUSE  100 
350  RUN 

900  GO  SUB  1100:  GO  SUB  102G 
902  PLOT  23,0:  DRRU  0 , 167 
90S  PLOT  232,0:  DRRU  ©,167 
910  FOR  i =1  TO  4 

ii " ****** 


920  PRINT  RT  i ,3;  INK 

’ssr  NT  ^RT *  1 5+  ?  Jl;  " 

930  NEXT  i 


94.0  PRINT  RT  0, 8>  “Ci  r  CVS 
score;0  Circus" 


94-5  LET  S  C  c0 :  LET  SS&1S:  LET  » = 
0;  DIM  b$  f26J 

950  LET  Od =— 2 :  LET  ca«0:  LET  hi 
=0:  LET  X  =3:  LET  g=6+INT  ( RND  *4) 

:  LET  a  =1 :  LET  d  =1 :  LET  an=-l 
955  PRINT  RT  15+ffi, 1;  ODER  0;  "  ” 

957  FOR  i =  15+»  TO  g  STEP  -1 
96©  PRINT  RT  i , 1; 

970  BEEP  • 05  , 21  — i 
980  PRINT  RT  i , 1; 

990  NEXT  i 

1000  PRINT  RT  y  ,  X  ;  “f  -  ” 

1010  RETURN 

1000  RESTORE  1078 

1030  FOR  i  *0  TO  S3 

104.0  RERD  n  :  POKE  USR  "a"  +i  ,  n 

1050  NEXT  i 

1060  RETURN 


1070  DRTR  0,0,  0,0,16, 56,124-,  254- 
1080  DRTR  56,56,  16,254-,  16,4.0,4-0, 
108 


1090  DRTR  0,60,110,126,62,28,8,4. 
1100  PRINT  "CIRCUS:  INSTRUCTION 
S.  " 


1110  PRINT  "  The  circus  has  co 
me  to  tovn,  and  the  star  attract 
ion  is  the  c loans'  see-saw  act 

Two  clowns  bounce 
from  a  see -saw  to  burst  balloo 
ns  high  in  the  air 
ills  PRINT  "  The  ratlins  clown 
must  not  hitthe  ground  or  the  wr 
ong  side  of  the  plank.  If  he  lan 
ds  close  to  the  Biddle  then  the 
other  clown  will  not  rise  high  e 
nough  to  hi  tang  bat  toons .The  cir 
cus  ontg  has  six  clowns  so  be  ca 
refui . " 

1120  print  You  control  the 

see -saw  with  kegs  5  and  8.  You  c 
an  wake  the  clown  on  the  see^sa 
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k  change  ends by  pressing  '  1*.  Pr 
ess  'N’  to  stop,  any  other  Key 
to  start" 

1130  IF  INKEY*«”**  THEN  GO  TO  113 

11440  IF  INKEY**t"n"  OR  XNKEy,*»“N** 
THEN  STOP 
1150  CL.S 
1160  RETURN 

JOGGER 

You  have  to  help  five  tired  joggers  across  a  busy  six-lane  highway. 
One  by  one,  the  joggers  place  their  lives  in  your  hands.as  you  guide 
them  through  the  traffic  using  the  "5"  (left),  "8"  (right),  "6"  (up) 
and  "7"  (down)  keys.  One  mistake,  and  you're  finished. 

Not  only  are  you  working  against  the  oncoming  traffic,  you're 
also  working  against  the  clock.  Each  time  you  manage  to  get  all  five 
across,  you'll  be  told  how  long  it  took  (measured  in  that  well-known 
time  unit  'heartbeats')  and  after  a  short  break  to  catch  your  breath, 
another  five  joggers  will  line  up  beside  the  road,  to  await  your 
assistance. 

As  you  can  see  from  the  two  printouts  there  are  always  five 
joggers  on  the  screen,  waiting  patiently  at  the  bottom  left  hand 
corner,  actually  on  the  highway,  or  up  at  the  top  near  the  right  hand 
corner.  You'll  be  told  how  many  joggers  are  left  to  assist  (just  in 
case  you  don't  know  how  to  count),  as  well  as  how  many  have 
made  the  journey  to  the  top  of  the  screen.  The  time,  shbwn  in  the 
second  line  underneath  "Joggers  safe"  is  updated  each  time  you 
manage  to  get  another  jogger  through  the  traffic. 

Once  you've  mastered  this  game,  you  can  convert  the  program 
to  the  second  version.  In  this  variation  the  jogger  does  not  stop 
moving,  so  a  great  deal  of  concentration  is  required  to  move  him  or 
her  through  the  traffic.  I  suggest  you  become  totally  familiar  with 
the  game  in  its  original  form,  before  you  make  the  changes  to  give 
you  the  perpetual  motion  jogger. 

The  program  begins  in  line  20  with  the  call  to  the  subroutine  from 
line  410.  Here,  the  INK  is  set  to  blue,  the  PAPER  to  white,  the 
BORDER  to  red  and  the  screen  is  cleared.  The  A  loop  from  lines 
440  to  500  defines  the  six  graphics.  The  first  one  (graphic  A,  or 
character  144)  is  the  jogger,  the  others  are  the  cars.  You'll  see  in 
this  loop  (line  450)  that  ES  is  set  equal  to  character  143  plus  the 
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value  of  A.  The  inner  loop,  B,  READs  the  DATA  from  lines  560  to 
61 0,  and  then  POKES  this  into  position  in  line  480. 

Line  510  sets  the  variable  TIME  (which  stands  for  the  time 
elapsed  per  round  of  five  joggers,  measured  in  'heartbeats')  and 
sets  the  variable  BESTTIME  to  a  very  large  number.  (You  can  see 
how  big  this  number  9E7  is  by  entering,  in  the  direct  mode,  PRINT 
9E7).  Your  BESTTIME  will  always  be  less  than  this,  even  the  first 
time  you  manage  to  get  the  joggers  across,  so  your  altering  of  the 
value  of  BESTTIME  will  start  the  first  time  you  succeed  in 
completing  one  round  of  the  game. 

The  strings  AS,  BS,  CS,  and  DS — which  hold  the  cars — are 
assigned  in  lines  520  to  550.  You  can  put  as  many,  or  as  few  cars  as 
you  like  in  these  strings,  so  long  as  each  of  them  is  32  characters 
long.  In  fact,  once  you  get  confident  at  playing  the  first  version  of 
JOGGER,  you  can  make  it  more  difficult  before  you  enter  the 
second  version  just  by  increasing  the  number  of  cars  per  string. 
However,  the  cars  cannot  be  placed  within  the  strings  completely 
at  random.  The  very  realistic  vehicles  were  designed  to  be  facing 
either  right  or  left  (as  well  as  one  which  looks  equally  good 
travelling  in  either  direction).  The  top  three  lanes  of  traffic  move  to 
the  right,  and  the  bottom  three  to  the  left.  You  can  use  graphic  "B" 
in  any  of  the  strings,  keeping  "C“  for  AS  and  BS,  and  reserving 
graphics  "D",  "E"  and  "F"  for  strings  CS  and  DS. 

Once  the  variables  have  been  initialized  and  the  graphics 
defined,  the  RETURN  at  line  555  sends  the  program  back  to  the  J 
loop  starting  at  line  30.  This  loop  controls  the  main  elements  of  the 
program,  and  as  you  can  see,  you  go  through  it  five  times,  once  for 
each  jogger.  Line  40  prints  up  your  "Joggers  safe"  tally  (always 
one  less  than  the  current  value  of  J  in  the  loop)  and  the  elapsed 
time  so  far.  Line  50  prints  the  "Joggers  left"  tally,  which  is  the 
difference  between  the  current  value  of  J  and  five  (so  when  J 
equals  one,  the  "Joggers  left"  is  four,  as  one  is  in  transit  across  the 
road). 

The  small  loop  from  lines  60  to  90  prints  out  a  little  jogger  figure 
for  each  jogger  which  has  made  it  across  the  road.  Line  1 00  blanks 
out  any  remaining  joggers  at  the  bottom  of  the  road,  then  the  loop 
from  1 1 0  to  1 30  prints  up  a  jogger  for  each  one  still  waiting.  The 
variable  JA  is  the  position  of  the  current  jogger  in  transit  across  the 
screen,  and  JD  is  the  position  down  the  screen.  The  jogger  starts 
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his  or  her  marathon  run  at  the  position  1 6, 1 9  which  is  about  centre 
of  the  screen,  near  the  bottom,  below  the  first  lane  of  cars.  Line 
1 50  prints  a  blank  where  the  jogger  will  be  printed  in  a  moment,  so 
when  the  jogger  is  moving,  this  line  blanks  out  the  previous 
position.  Lines  1 60  and  1 70  read  the  keyboard,  moving  the  jogger 
in  accord  with  your  wishes,  before  the  jogger  is  printed  in  line  180 

The  long  line  190  prints  all  the  lanes  of  cars.  The  PRINT  ATs  are 
chained  in  this  way,  as  it  makes  for  maximum  running  speed.  Lines 
200  to  230  compare  the  current  position  of  the  jogger  with  the 
content  of  the  string  at  that  position  and  if  a  jogger  and  a  car  have 
been  found  to  coincide,  then  attention  moves  to  the  routine  from 
line  350,  where  the  jogger  smash  routine  is  invoked:  Lines  250  to 
280  control  the  movement  of  the  cars,  using  Sinclair  BASIC  string 
slicing  to  move  elements  of  the  strings  along. 

The  variable  TIME  is  incremented  in  line  290.  Line  300  checks 
the  value  of  JD,  and  if  it  is  found  to  be  two,  the  computer  knows 
another  jogger  has  made  it  across  the  Rubicon.  A  jolly  series  of 
rising  tones  is  heard  before  the  N  EXT  J  at  the  end  of  line  300  sends 
action  back  to  line  40  for  the  next  little  red  runner  to  brave  the  cars. 

If  the  jogger  has  not  made  it  to  the  end  (that  is,  JD  is  not  equal  to 
two)  the  computer  will  bypass  the  rest  of  line  300  and  come  to  31 0. 
If  J  is  less  than  six,  the  computer  sends  action  back  to  line  1 50, 
where  the  jogger  is  blanked  out,  prior  to  being  reprinted  by  line  1 80. 
If  all  the  joggers  have  made  the  journey  safely,  line  320  prints  up 
"That  round:"  and  the  time  it  took  you,  puts  a  "5"  at  the  end  of  the 
"Joggers  safe:"  line  and  prints  on  the  screen  "YOU  DID  IT!"  Line 
330  tells  you  how  long  it  took,  and  then  line  340  sends  the  program 
to  line  620. 

Line  620  compares  the  time  of  the  round  just  completed  with  the 
BESTTIME,  altering  BESTTIME  to  TIME  if  TIME  is  smaller.  If 
BESTTIME  is  not  1 0000  (which  can  occur  the  first  time  you  attempt 
the  game  and  fail  to  complete  a  round,  as  will  be  explained  shortly) 
the  best  time  is  printed  on  the  screen,  so  you  can  see  how  well  or 
otherwise  you  did.  A  pair  of  opposing  trills  round  out  the  end  of  the 
game  (line  620),  the  variable  TIM  E  is  reset  to  zero,  and  the  program 
goes  to  line  30  to  start  the  next  round. 

If  you  have  not  managed  to  get  all  the  joggers  across  the  road, 
the  routine  from  line  350  is  triggered  (the  IF/THEN  lines  from  200  to 
230  send  you  here,  you  may  recall).  The  loop  (350  to  370)  prints  a 
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flashing  jogger  on  the  spot  where  he  or  she  was  hit  by  a  speeding 
car,  some  BEEPs  sound,  and  you  are  told  (although  by  now  you've 
probably  realised  this)  that  "YOU  HAVE  BEEN  HIT",  followed  by 
your  'jogger  tally'  (line  390).  The  variable  TIME  Is  set  to  10000  so 
that  it  will  not  be  printed,  and  will  not  alter  your  BESTTIME  value.  If 
TIME  was  not  artificially  increased  at  this  point,  you  could  get  a 
brilliant  BESTTIME  simply  by  running  into  the  first  row  of  cars. 

Once  you've  mastered  this  game,  try  it  with  more  cars  or  invent 
your  own  vehicles.  A  few  horses,  a  penny-farthing  bicycle  or  two 
and  a  rickshaw  should  keep  you  on  your  toes.  When  even  this 
custom-made  version  of  JOGGER  palls,  alter  your  listing  so  that  it 
resembles  the  second  listing.  In  this  version  the  jogger  starts  the 
round  moving,  and  keeps  moving.  You'll  find  this  extremely 
difficult  to  play,  and  you  may  well  want  to  make  it  easier  the  first 
few  times  by  reducing  the  number  of  cars,  or  adding: 

195  BEEP  05,RND*50 

to  slow  things  to  a  more  manageable  speed.  Good  luck,  Jogger, 
and  may  you  cross  The  Road  safely. 

Here's  what  the  program  looks  like  when  under  way: 


Joggers  safe:  1  A 

Time  so  far:  67 

AA  OcMt  A  St  A  Q*  AbA  A 


A  9*  A  9*  A  8*  AO*  Mi  a 

AA  MMfc  A  8»  A  D>  AOtA  A 


•4*  -4*  -wl  -a  4 


A  4  -M  * 

Joggers  left:  3 
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Joggers  safe:  5 
That  round:  526  £ 

Or 

BEST  TIME  SO  FOR 


QriMl  A  A 

4-71 


s»  AOt  Mb  a  at  a  at  a  at 


at  AOtA  AA  OriMt  a  at  A 

YOU  DID  IT! 

*9  “Cl fT  <#94k  fY~Ct-Cl~Cl~Ck  -ft- 

IT  TOOK  YOU  526  HEARTBEATS 

H»  41  41  ft*  ft  #><W  4  41  -A 


^  -A4k  *  AOU  A4MKWI  ft 

Joggers  Left:  8 


And  this  is  the  listing  for  it: 


10  REM  JOGGER 
2©  GO  SUE  4-1© 

30  FOR  J  =  1  TO  5 
4-0  PRINT  RT  1,2;** 
J-l;fiT  2,©;**Tij»e 
HE ;  ” 

50  PRINT  AT  20,2; 

60"  PRINT  RT  1,24-; 
70  FOR  Z=1  TO  J-l 


Jo  ggers 
so  far: 

"Joggers 


E©  PRINT  INK  2;  "jk“;  :  REM 
XC  A 

9B  NEXT  Z 

100  PRINT  AT  2©, 24.;“ 

S,24..; 


safe; 

“;ti 

left 


GRAPH 


.;AT  2 


110  FOR  Z  =  1  TO  5-0 

12©  PRINT  INK  2;  :  REM  GRAPH 

IC  A 

*130  NEXT  Z 

14-0  LET  JA=16:  LET  JD=19 
15©  PRINT  AT  JD ,  Ufi;  11  *# 

15©  LET  Ufi  =JA  +■  C  INKEY t  =  "  8  ”  }  —  f  INK 
EY$  =  ,I5,‘  ) 

170  LET  JD=JD+(INKEY»=“6,‘)  -CINK 
EY$  =  ,,7‘*) 

IS©  PRINT  AT  UD ,  JR;  INK  2; 

19©  PRINT  AT  3,©;  INK  2; fit; RT  2 
,©;  INK  ©;  fit;  fiT  5,0;  INK  4-;  St;  RT 
12,0;  INK  3;ct;AT  13,0;  INK  i;c 
t;fiT  15,0;  INK  2; Dt 
200  IF  COD =3  OR  UD=91  fiND  fit  CUR 
+1>  <>“  “  THEN  GO  TO  350 
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21©  XF  UD=6  RND  B*tUR+l)<>"  ”  T 

HEN  GO  TO  35© 

22©  IF  C  JD  =  12  OR  =  RND  D${ 

Jfl  +  i)0M  ""  THEN  GO  TO  350 
230  XF  JD=15  RND  D*  f *JR  *13  <  > "  " 

THEN  GO  TO  350 
250  i_ET  R$=R$  C31J  +R$  f  TO  31) 

26©  LET  B$=B$  C 31 )  +B$  (  TO  31) 

270  LET  C$=D$(2  TO  i+C*Il) 

2S0  LET  D$=D$<2  TO  )+D$Cl) 

29©  LET  TIHE=TIHEfl 
30©  XF  JD=2  THEN  FOR  2=1  TO  20: 
BEEP  .81,2:  NEXT  2:  NEXT  U 
310  XF  U<6  THEN  GO  TO  ISO 
32©  PRINT  INK  2; RT  2,0; "That  TO 
und;  " ;  T IHE;  "  “;RT  1,16;5;RT  10,. 
S ;  FLRSH  1;  PRPER  6;  BRIGHT  1; "Y 
OU  DID  XT!"" 

33©  PRINT  ' 'TRB  A; “XT  TOOK  YOU 
■"  :  TIME;  M  HERRTBERTS  "* 

34-0  GO  TO  620 
350  FOR  2  =  1  TO  2© 

360  PRINT  RT  JD,JRj  FLRSH  Ij  BR 
XGHT  l;  INK  2; "A “ :  BEEP  .008,2 
370  NEXT  2 

360  PRINT  RT  10 ,6; “YOU  HRUE  BEE 
N  HIT" 

390  PRINT  RT  12,S;J-I;Bt  JOGGERS 
HRDE  XT" 

480  LET  TIME  =10000:  GO  TO  620 
4.10  INK  1:  PRPER  7;  BORDER  2:  C 

LS 

4.4.0  FOR  R  =  1  TO  6 

4.50  LET  E$=CHR$  (14.3+RJ 

4.60  FOR  B=©  TO  7 

4-70  RERD  C 

4-60  POKE  USR  E$+B,C 

4.9©  NEXT  B 

5©0  NEXT  R 

_510  LET  TIME=0;  LET  BESTT IHE  =9E 

520  LET  R$  =  “  AA  Otfttfe 

4*  A  9*  A" 

530  LET  B$  = 11  Mr  A  9* 

A  fl  AOtA" 

54.0  LET  C  $  =  "  <v 
A  jsw» 

550  LET  D$  =  "  A- <V4V4V<V<V  -a  -Cl 

A  ^  *'■ 

555  RETURN 

560  DRTR  28,28,8,62,8,28,34,68 
57©  DRTR  0,60,36,231,255,102,8, 

0 

56©  DRTR  248,144, 156^255^254.,  10 
2 © 

59©  DRTR  0,0,30,99,255,27,0,0 
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600  DftTfi  0.0,56,40,126^36,0,0 
61®  DATA  0,0, 30,51, 255, 34-,  0,0 
620  IP  TIME  < BESTTIME  (AND  TIMEo 
10000  THEN  LET  BESTTIME =TIME 
630  IF  BESTTIME0  9E7  THEN  PRINT 
RT  4-, 2;  FLASH  1;  "BEST  TIME  SO  P 
AR :  BESTTIME 

64-0  FOR  Z  =50  TO  1  STEP  -1:  BEEP 
. 05 , Z :  BEEP  . 05 . -Z :  NEXT  Z 
650  CLS 

660  LET  TIME=0 
670  GO  TO  30 


10  REM  JOGGER  -  UefSiOn  TWO 
15  REM  jogger  keeps  running 
20  GO  SUB  4.10 
3©  FOR  J=I  TO  5 

4-0  PRINT  RT  1,2;  "Joggers  safe. 
";j-l;AT  2,0; "Time  so  far:  ";TI 

he;  " 

50  PRINT  RT  20,2; "Joggers  left 

’  u  *  5  _j 

60  PRINT  RT  1,2*; 

70  FOR  Z  =  1  TO  J- 1 

80  PRINT  INK  2; :  REH  GRRPH 
IC  R 

90  NEXT  Z 

108  PRINT  RT  20,24;  n  *’;RT  3 

8 . 24-; 

110  FOR  Z  =  1  TO  5-J 

120  PRINT  INK  2;  :  REH  GRRPH 

IO  R 

130  NEXT  Z 

14-0  LET  Jfl=16;  LET  JD=19 
150  PRINT  RT  ” 

155  LET  Z$  =  INKEY$:  IF  Z*<,*5*i  OR 
Z$  >  ’*8”  THEN  LET  Z$=X$ 

IS©  LET  JR=JR+ fZ$  =  '‘8"  RND  JR  <38 
>-CZ*  =  "5-  RND  JR  >33 
1T0  LET  JD=JD+  CZ*="&"  RND  JD>1? 
—  CZ$  =  *,"7,,  RND  J<21J 
ITS  LET  X$=Z$ 

180  PRINT  RT  JD ,  JR;  INK  2; 

190  PRINT  RT  3,0;  INK  2;  fi*;  RT  2 
,  0;  INK  ©;R$;RT  8,0;  INK  4-;  B$  ;  RT 
12,0;  INK  3;  c$ij  RT  18,0;  INK  1;  C 
$; RT  15,0;  INK  2;D* 

200  IF  C JD =3  OR  JD=9)  RND  R$ C JR 
*1)  <>"  *m  THEN  GO  TO  350 
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21©  IF  JD=6  fiND  BStUR+lJ  <>**  ”  T 

HEN  GO  TO  350 

22©  IP  CUD=12  OR  00=133  AND  C$  i 
JAfl)  <>**  **  THEN  GO  TO  350 

230  XP  JD=15  AND  D*  CUR+1.*  <  >  ”  " 

THEN  GO  TO  350 
250  LET  A$-A$(31) +A${  TO  31) 

260  LET  B$=B  $ (31)  i  TO  31} 

27©  LET  C$=C*f2  TO  3+0$ tl> 

23©  LET  D$-D$(2  TO  )+D$Cl) 

290  LET  TIHE=TXME+i 
30©  IP  vJD  =2  THEN  POR  2=1  TO  20; 
BEEP  .01,2:  NEXT  Z:  NEXT  *J 
31©  XP  U<6  THEN  GO  TO  150 
320  PRINT  INK  2; RT  2,©; "That  TO 
und:  ,,;TIME;,i  **;RT  1,16;5;AT  10, 
S;  PLASH  i;  PAPER  6,  BRIGHT  1;  "Y 
DU  DID  IT ! “ 

330  PRINT  '  'TAB  4  ;  IT  TOOK  YOU 

;  time;  heartbeats** 

34©  GO  TO  62© 

350  POR  Z  =  1  TO  20 

360  PRINT  RT  JD,UA,  FLASH  1;  BR 
IGHT  1;  INK  2; "A";  BEEP  .006,2 
37©  NEXT  Z 

360  PRINT  RT  10,8;  **YOU  HAUE  BEE 
N  HIT’* 

39©  PRINT  RT  12,8; 0-1; "  JOGGERS 
MADE  XT** 

4©0  LET  TIME=10000 :  GO  TO  62© 
410  INK  1;  PRPER  7:  BORDER  2:  G 

LS 

42©  LET  X$  =  " 6  “ 

44©  FOR  R=1  TO  6 

450  LET  E$=CHR$  fl43+R) 

460  FOR  B=0  TO  7 
470  READ  C 
43©  POKE  USR  E$+B , C 
49©  NEXT  B 
50©  NEXT  R 

510  LET  T IHE  =0 ;  LET  BESTTIHE«9E 

520  LET  R*=**  MM  M  QM 

a  Hi  A  A** 

530  LET  B*="  W*  **  fc 

4*  Or  A  k 

540  LET  C*  =  ‘**  nan  *kwmw 

A  «  4MI  #K>  ** 

550  LET  D$=u»a a  « 

^  -A  4  41  An 

555  RETURN 

56©  DRTR  28,28,8,62,8,28,34,66 
57©  DRTR  0, 6©  ,36, 231, 255, 102, 0, 

0 

530  DRTR  240,144,153,255,254,10 

2,0,0 
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590  DfiTR  0,0,30,99,255,27,0,0 
500  DfiTfl  0,0,56,4.0,126,36,0,0 
610  DftTfl  0,0,30,51,255,34,0,0 
620  XF  TIME {BESTTIME  2ND  TIME  < > 
10000  THEN  LET  BESTTIME =TIME 
630  IF  BESTTIME < >9E7  THEN  PRINT 
RT  4,2;  FLRSH  1; "BEST  TIME  SO  F 
RR:  BESTTIME 

640  FOR  2=50  TO  1  STEP  -1;  BEEP 
. 05 , Z :  BEEP  .05,-2 :  NEXT  Z 
650  CL.S 

660  LET  TIME=B.-  LET  Z*  =  "8” 

67©  GO  TO  30 


DISABLE  THAT  MINE 

This  game  is  very  hard  to  master  because  it  entails  controlling  two 
objects  on  the  screen  at  the  same  time.  Your  task  is  to  clear  the 
screen  of  mines  and  the  task  is  a  doubly  difficult  one  because 
disabling  a  mine  is  a  two-stage  operation.  First  you  must  deactivate 
the  mine  using  the  inverter.  Passing  the  inverter  over  a  live  mine 
makes  it  safe,  but  passing  the  inverter  over  a  safe  mine  reactivates 
it.  You  control  the  inverter  with  the  "5"  and  "8"  keys. 

As  well  as  the  inverter,  you'll  see  the  controller  on  the  screen. 
Passing  this  over  a  mine  made  safe  by  the  inverter  removes  that 
mine  from  the  screen.  You  have  to  be  very  careful  to  make  sure  the 
controller  does  not  hit  a  live  mine.  The  controller  is  also  controlled 
by  the  "5"  and  "8"  keys,  but  with  SHIFT  depressed. 

There  are  40  mines  and  a  choice  of  five  possible  speeds,  so  this 
is  not  a  game  you  will  tire  of  quickly.  As  you  can  see  from  the 
sample  printout,  you'll  have  a  very  difficult  time  keeping  everything 
under  control. 

When  you  first  run  the  program,  line  30  sends  action  to  the 
subroutine  from  line  600  where  graphics  "A",  "B"  and  "C"  are 
redefined.  The  "Z"  in  the  last  DATA  statement,  line  680,  triggers 
the  RETURN  from  the  subroutine  in  line  600.  On  the  return,  the 
second  routine  call  in  line  30  directs  the  Spectrum  to  line  520, 
where  the  instructions  are  printed  up: 

YOUR  TASK  IS  TO  CLEAR  THE  SCREEN  OF  MINES.  THIS 
IS.A  TWO-STAGE  OPERATION,  FIRST  THE  MINE  MUST  BE 
DEFUSED  BY  PASSING  THE  INVERTER  (graphic  "B") 

OVER  IT.  THIS  IS  CONTROLLED  USING  KEYS  5  TO  8. 
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NEXT,  THE  DEFUSED  MINE  MUST  BE  PICKED  UP  BY  THE 
COLLECTOR  (graphic  "C")  THIS  IS  CONTROLLED  BY 
KEYS  5  TO  8  WITH  THE  CAPS  SHIFT  ALSO  DEPRESSED. 
THE  COLLECTOR  MUST  NOT  HIT  A  LIVE  MINE. 

Once  you've  absorbed  this,  you  are  asked  to  select  the  difficulty 
factor: 

ENTER  SKILL  LEVEL  1-5.  5=EASY 
PRESS  6  TO  STOP. 

The  INKEYS  routine  in  lines  540,  550  and  560  accepts  valid 
inputs,  rejecting  key  presses  which  are  outside  the  range  "1 "  to 
"6"  (line  550)  and  terminating  the  program  if  the  "6"  has  been 
selected  (line  560).  Line  570  sets  the  variable  SP  to  a  value  related 
to  the  key  between  "1 "  and  "5"  which  was  pressed.  SP  controls 
the  difficulty,  or  otherwise,  of  the  game.  Line  580  now  sends 
action  to  line  40,  the  line  after  the  GO  TO  which  started  the 
instruction/choice  of  difficulty  sequence  at  which  we  have  just 
been  looking. 

Line  40  sets  up  the  screen.  The  INK  and  PAPER  are  both  set  to  5 
(cyan),  the  screen  is  cleared  to  establish  the  colour,  and  the 
BORDER  is  then  set  to  cyan.  The  INK  colour  changes  to  black,  and 
variable  TS  is  made  equal  to  a  single  space.  Lines  50  and  60 
initialize  variables  which  will  control  such  things  as  the  positions  of 
your  inverter  and  controller  as  well  as  the  number  of  mines 
disabled.  The  routine  in  lines  70, 80  and  90  draws  the  border  within 
which  the  action  will  occur  and  the  routine  from  lines  100  to  150 
puts  the  mines  in  place,  ensuring  (line  1 30)  that  there  are  no  mines 
printed  on  top  of  other  mines.  If  this  happened,  there  would  be  less 
than  40  mines  on  the  screen  and  the  'end  of  game'  trigger  (fired,  at 
the  end  of  line  370,  if  all  40  mines  have  been  disabled),  will  never  be 
pulled. 

Once  the  mines  are  in  position,  printed  in  red  (see  the  INK 
change  at  the  end  of  line  90),  the  INK  reverts  to  cyan  in  line  1 55.  IS 
is  used  to  interpret  your  wishes.  The  first  section  (from  180  to  210) 
interprets  information  regarding  the  non-shifted  keys  "5"  to  "8" 
which  control  the  inverter.  The  next  section  (lines  220  to  260)  looks 
for  the  shifted  versions  of  these  keys.  (Note  that  the  CODE  of  IS  is 
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taken  in  line  220,  and  this  is  used  to  interpret  the  shifted  keys.  This 
is  a  useful  technique  if  you  wish  to  read  shifted  keys  at  any  position 
on  the  screen.  To  find  out  the  needed  CODE,  just  write  a  short 
routine  to  print  out  the  CODE  of  the  key  you're  depressing).  The 
results  of  these  readings  are  assigned  to  the  variables  A,  D,  CA  and 
CD  which  are  added  to  the  current  positions  of  the  inverter  and 
controller  (A  and  D  to  the  inverter,  CA  and  CD  to  the  controller)  after 
the  'old'  positions  of  each  are  overprinted  with  blanks  (line  270). 

The  variable  N  is  given  a  value  equal  to  the  ATTRibutes  of  the 
new  position  of  the  inverter,  with  CN  being  given  the  value  of  the 
controller  position's  ATTRibutes.  Line  320  reprints  the  two  objects 
and  line  325  adds  a  short  BEEP.  As  you  can  see,  the  length  of  the 
BEEP  is  related  to  the  value  you  entered  at  the  start  of  the  run  for 
the  difficulty  factor.  The  higher  the  number  you  entered,  the  longer 
the  BEEP  produced  in  line  325.  As  you  know,  all  action  stops  on  the 
Spectrum  when  the  BEEP  is  sounding,  and  using  a  variable  like  this 
is  a  useful  way  to  get  both  a  sound  and  a  degree  of  control  over  the 
speed  with  which  a  program  runs.  If  you  find  the  program  too 
difficult,  even  at  level  five,  change  the  nine  in  line  570  to  some 
smaller  value.  If  N  equals  40  or  CN  equals  40  (line  330)  then  the 
computer  knows  you  have  hit  the  wall  and  the  program  goes  to 
line  400  for  the  unhappy  news:  "YOU  CRASHED  INTO  THE 
ELECTRIFIED  BARRIER".  Lines  340  and  350  make  the  needed 
changes  to  the  mine  (if  your  inverter  is  over  one),  turning  live  mines 
safe  and  vice  versa.  If  the  value  of  CN  is  42,  the  Spectrum  knows 
you  have  hit  a  live  mine  and  thus  terminates  the  game  by  going  to 
line  440  where  you  are  told:  "YOUR  CARRIER  HIT  A  LIVE  MINE"  in 
flashing,  red  letters. 

If  you  have  cleared  a  mine  (attribute  CN  is  41 ,  line  370)  the  score 
(S)  of  mines  cleared  is  incremented  by  one.  If  S  equals  40  (end  of 
line  370)  then  the  computer  knows  that  all  the  mines  have  been 
cleared  and  activates  line  470  to  congratulate  you:  "YOU  MADE 
IT! ! ! ".  If  neither  of  these  have  happened  (that  is,  you  have  not  hit  a 
live  mine,  and  you  have  not  disabled  all  the  mines),  line  380  sends 
the  program  back  to  1 60  to  continue  the  process. 

The  rest  of  the  program,  from  400  to  510,  contains  the  end  of 
game  messages  and  some  short  bursts  of  Spectrum  symphonies. 
Once  you  become  a  supremely  confident  master  mine  disabler, 
delete  line  325  and  see  how  well  you  do.  This  is  the  ultimate  test. 
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3©  GO  SUB  680:  GO  TO  52® 

4-®  INK  5:  PAPER  5;  CLS  :  BORDE 
R  5:  INK  0:  LET  T*  =  "  " 


5®  LET  6=©:  LET  X=16:  LET  Y  =  1 
S®  LET  OX =16 :  LET  CY=20:  LET  C 
D=0 

65  LET  A=l.  LET  D=0:  LET  CR=1 
7®  PLOT  4- ,  4- :  DRAW  24-7,0 
3©  DRAW  0,167:  DRAW  -24-7,® 

9®  DRAU  0,-167:  INK  2 
10®  FOR  1  =  1  TO  4-0 


11®  LET  TX=INT  <RND*30> +1 
120  LET  TY =INT  <RND*1SJ +2 
13®  IF  SCREENS  tTY,TX)=”"  THEN 
GO  TO  110 

14-®  PRINT  AT  TY,TX; 

15®  NEXT  I 

155  INK  5 

15®  LET  I$=INKEY* 

17®  IF  I*  =  ” "  THEN  GO  TO  27© 

IS®  IF  I$  =  **S'‘  THEN  LET  A  =  -l :  LE 
T  0=0:  GO  TO  270 

19®  IF  I*="S"  THEN  LET  A  =  i:  LET 
D=®:  GO  TO  270 

20®  IF  I*  =  *'S"  THEN  LET  A=0:  LET 
0=1:  GO  TO  27© 

21©  IF  I*  =  **7“  THEN  LET  A=©:  LET 
D=-l:  GO  TO  27® 

22©  LET  I =CODE  I* 

23®  IF  I=S  THEN  LET  CA=-1:  LET 
CD»0:  GO  TO  27® 

24-0  IF  1=9  THEN  LET  CA  =  1:  LET  C 
D=©:  GO  TO  270 

250  IF  1=1©  THEN  LET  CA=©:  LET 
CD=1;  GO  TO  270 

^260  IF  1=11  THEN  LET  CA=©:  LET 

W 270 1PR INT  AT  CY  ,  OX ;  **  ”,  AT  Y  ,  X ;  T 

LET  le 

as©  LET  X=X+A:  LET  Y=Y+D 

29®  LET  CX  =CX  +C A :  LET  CY=CY+CD 

30®  LET  N=ATTR  CY,X) 

310  LET  CN=ATTR  (CY,CX) 

32®  PRINT  INK  7,  AT  Y ,  X;  AT  C 

y  ,  cx ;  •• m •• 

325  BEEP  SP,0 

330  IF  N  =4-0  OR  CN  =  4-0  THEN  GO  TO 
4-00 


34-0  IF  N  =4-2  THEN  LET  T*=CHR*  16 
+GHR*  1 + 

350  IF  N  =4-1  THEN  LET  T*=CHR*  16 
+CHR*  2  +  *•**• 

360  IF  CN=4-2  THEN  GO  TO  4-4.0 
370  IF  CN=4-1  THEN  LET  5=6+1:  IF 
3=4-0  THEN  GO  TO  478 
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330  GO  TO  160 

4.00  PRINT  FLASH  1;  INK  0;  RT  ©,© 
j "YOU  CRASHED  INTO  THE  ELECTRI^I 
ED  BARRIER"; 

410  FOR  1=1  TO  10:  BEEP  .02,-0 
4120  BEEP  .02,5:  NEXT  I 
4.30  GO  TO  500 

4-4.0  PRINT  FLASH  1;  INK  2;  RT  0,2 
j "YOUR  CARRIER  HIT  A  LIUE  MINE  " 
450  BEEP  .2,-20:  BEEP  .5,-5 
450  GO  TO  500 

470  PRINT  AT  1,3;  INK  0; "YOU  MR 
UE  IT  !  i  " 

430  SEEP  1,3 
500  INK  © 

510  PRINT  "YOU  CLEARED  ";S;"  MI 
NES" 

&2S  PRINT 

Y *mi»pb*M'BbVQUR  TASK  IS  TO  CLER 
R  THE  SCREEN  OF  MINES.  THIS  IS  A 
TUO -STAGE  OPERATION, FIRST  THE 
MINE  MUST  BE  DEFUSED  BY  PASS I 
NG  THE  INUERTER  C#) OUER  IT 

-THIS  IS  CONTROLLED  USING  KE 

YS  5  TO  S.  NEXT,  THE  DEFUSED  M 
XNE  MUST  BE  PICKED  UP  BY  THE  CO 
LLECTOR  (») .  THIS  IS  CONTROLLED 
BY  KEYS  5  TO  S  WITH  THE  CAPS  SHI 
FT  ALSO  DEPRESSED.  THE  COLL 

ECTOR  MUST  NOT  HIT  A  LIUE  MINE 

530  PRINT  "'"ENTER  SKILL  LEUEL 
1-5  5=EASY  PRESS  6  TO  STOP." 

540  LET  I$=INKEY* 

550  IF  I$<”I**  OR  I*>”6"  THEN  GO 
TO  540 

560  IF  I$="6"  THEN  STOP 
57©  LET  5P=UAL  I 
So©  GO  TO  40 

600  READ  A*:  IF  A$="Z"  THEN  RET 

URN 

SI©  FOR  1=0  TO  7 

620  READ  N:  POKE  USR  A$+I,N 

63©  NEXT  I 

640  GO  TO  600 

650  DATA  "A" ,0,0,0,60,82,255,60 
-  0 

' £53  DATA  "B" , 36 , 36, 255,6 0,60, SB 

v’670#DftTfi  "C**  ,0,0,248,254,254,25 
5, 255, 34 
880  DfiTfi  "Z" 


32  Arcade  Games 


UDG  «.=fi  #=B  *=C 

COPTER 

Here's  a  program  to  test  your  flying  skills.  You  have  four  heli¬ 
copters  and  your  task  is  to  wipe  out  a  set  of  marauding  red  lines. 

You  wipe  out  the  lines  by  landing  on  them.  You  must  land  first  on 
the  shortest  red  line  you  see,  then  the  next  shortest,  and  soon  until 
you've  landed  on  all  of  them  in  order.  One  false  move  and  you  lose 
your  chopper.  You  have  four  helicopters  with  which  to  complete 
the  mission  and  you'll  get  bonus  points  if  you  manage  to  do  it 
without  using  up  all  four  craft. 

You  fly  the  little  machines  using  the  "0"  key  to  rise,  and  "5"  and 
"8"  to  move  you  left  and  right.  Gravity  automatically  drags  you 
planetward  if  you  do  not  apply  thrust.  Your  final  score  is  related  to 
the  amount  of  fuel  you  have  left.  If  all  four  copters  crash  before  you 
have  destroyed  the  red  lines  you'll  be  faced  with  the  grim 
message:  "Copter  terminated".  There  is  a  high  score  feature. 

Line  1 0  sets  the  BORDER  black,  the  variable  h  is  set  to  zero  in 
line  1 5  (for  the  high  score,  see  lines  532  and  535)  before  the  yellow 
INK  is  selected  (line  20)  and  black  PAPER  (line  30).  After  this,  the 
program  goes  to  the  subroutine  starting  from  line  610  which 
POKEs  DATA  from  line  900  into  the  graphic  "a"  position  to  create 
the  tiny  helicopter  you  see  in  line  45. 
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After  the  graphic  has  been  defined  the  screen  clears,  es¬ 
tablishing  your  black  PAPER.  The  loop  from  lines  50  to  70  prints  out 
a  solid  yellow  block,  using  a  yellow  PAPER  and  a  line  of  spaces 
within  the  quote  marks.  Two  arrays  are  DIMensioned,  to  hold  and 
order  the  lines  upon  which  the  'copters  must  land'.  The  a  loop  runs 
from  lines  1 00  to  1 80,  using  the  random  number  generated  in  line 
110  and  the  PLOT  (line  150)  and  DRAW  (line  160)  commands  to 
produce  a  most  effective  landing  base,  as  will  become  clear  when 
you  run  the  program.  The  routine  in  lines  120  and  130  ensures  that 
ten  lines  of  different  lengths  will  be  held  in  the  d  array. 

The  variable  r  is  assigned  to  one  in  line  1 85.  This  governs  the  line 
on  which  the  copter  should  be  landing  (when  r  is  one,  you  are 
aiming  for  the  line  represented  by  d[r]).  Your  fuel  variable,  f,  is  set  to 
25000  in  line  1 90.  As  well  as  controlling  the  fuel,  f  is  used  to  set  the 
pitch  for  the  sound  generation  in  line  240  (divided  by  1000).  As 
you'll  hear,  this  produces  a  sound  which  fits  in  well  with  the  action 
of  the  helicopter.  The  fuel  is  decremented  by  21  in  lines  250  and  (if 
you're  thrusting)  280.  The  p  variable,  your  horizontal  coordinate,  is 
set  to  16  in  line  210  before  your  tiny  craft  is  launched  in  line  220. 

Line  245  prints  the'helicopters  left'  (using  IS  defined  in  line  45,  as 
three  helicopters)  down  in  the  bottom  right  hand  corner  of  the 
screen,  and — after  the  fuel  is  decremented  in  line  250,  and  the 
amount  left  is  printed  in  line  255  in  the  bottom  left  hand  corner  of 
the  screen — your  helicopter  position  is  'unprinted',  prior  to  it 
reappearing.  The  variable  u  (assigned  initially  to  one  in  line  200) 
controls  your  vertical  displacement  (the  higher  u  is,  the  lower  you 
are),  and  lines  275  to  290  read  your  intentions  from  the  keyboard 
("0"  to  rise,  "5"  to  move  left,  "8"  to  move  right),  before  the 
program  recycles  to  line  220  to  reprint  the  helicopter  in  its  new 
position. 

A  landing  is  detected  in  line  230  and  this  directs  the  program  to 
line  400  where  the  landing  site  is  checked.  If  this  is  not  the  current 
shortest  line-that  is,  p  does  not  equal  d(r) — there  is  a  mournful 
bump  noise  (BEEP  .01  ,-1 0)  and  1 000  units  of  fuel  are  taken  away 
from  you  before  the  helicopter  is  printed  in  inverse  for  a  moment 
(line  412)  and  another  mournful  sound  is  heard  (line  413)  as  the 
helicopter  vanishes  (line  41 4).  The  string  IS  is  checked.  If  it  equals 
the  null  string  ("  "),  then  the  computer  knows  you  have  run  out  of 
helicopters.  You'll  recall  that  IS  was  set  equal  to  three  helicopters  in 
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line  45.  Line  41 6  cuts  one  helicopter  off  the  end  of  this  string  after 
each  landing  so  that  when  IS  equals  "  ",  it  knows  the  four 
helicopters  have  been  used  up  (the  fourth  helicopter  was  not  part 
of  IS  at  the  start).  Line  41 8  returns  the  action  to  line  200,  where  the 
next  helicopter  is  started  on  its  mission. 

Line  400  checks  to  see  if  it  was  a  successful  landing.  Having 
found  that  it  is,  it  bypasses  all  the  bad  news  of  lines  405  through  to 
418  and  jumps  straight  to  420  where  the  helicopter  is  unprinted, 
and  the  top  of  the  red  lines  is  shaved  by  line  425.  A  small  BEEP  loop 
gives  you  a  moment  to  catch  your  breath  and  the  variable  r  (which 
counts  the  number  of  lines)  is  incremented  by  one.  If  it  is  less  than 
eleven  there  are  still  lines  left  on  which  to  land.  If  not,  the  unused 
helicopters  are  blotted  out  (by  line  490)  and  the  fuel  is  incremented 
by  1 000  units  per  remaining  helicopter,  thus  ensuring  you  get  your 
bonus  for  unused  craft.  The  new  fuel  figure  is  clocked  up 
progressively  (line  520)  as  it  is  worked  out. 

The  high  score  is  adjusted,  if  necessary,  in  line  532  and  then 
printed  by  the  next  line  before  the  program  goes  to  line  310  to 
announce  that  the  game  is  over.  If  you  have  not  managed  to  wipe 
out  all  the  lines  (that  is,  r  is  less  than  eleven)  then  the  failure 
message  "Copter  terminated"  appears.  Lines  330  and  340  wait 
until  you  take  your  finger  off  the  keyboard  (line  330)  at  the  end  of 
one  round,  then  replace  it  again  (line  340)  to  signal  that  you  are 
ready  for  a  new  round.  When  you  are,  the  program  moves  to  line 
40  which  clears  the  screen  (but  does  not  redefine  the  character  nor 
reset  variable  h,  the  high  score  variable)  and  sets  you  off  again  on 
another  mission  with  four  new  helicopters.  Good  flying. 

5  REM  Copter 
1©  BORDER  0 
15  LET  h =0 
a©  INK  6 
3S  PfiPER  © 

35  GO  SUB  Si© 

4-0  CLS 

4-5  LET  t  *  =  ”*•*'•*'” 

50  FOR  a =11  TO  21 
60  PRINT  RT  a,0;  PRPER  6;” 

70  NEXT  a 
80  DIM  d (10) 

9©  DIM  e  C32> 

10©  FOR  a-1  TO  10 
110  LET  b  =  JNT  tRND*32.i 


Arcade  Games  35 


12©  IF  e(b+l)=l  THEN  GO  TO  110 

130  LET  e  ( b+l>  =1 

14-0  LET  d  (a>  =b 

150  PLOT  bJ8+4-,87 

150  BRRIJ  INK  2;S,-3f8+l 

150  NEXT  a 

155  LET  r  =1 


190  LET  f =25000 
2@0  LET  u  =0 
210  LET  P  =15 


220  PRINT  INK  4;  RT  t-«,p;"*" 
230  IF  u=9+r  THEN  GOTO  *00 
24-0  BEEP  ,81,  f/1088 
=  4-5  PRINT  INUERSE  1;  RT  21,2 


i  1$ 


250  LcT  f = f -21 

255  PRINT  RT  21 , 8,  INVERSE  1;"/ 

,,p  »  ”  *  ;  ;  ■'* 

”250  PRINT  RT  U ,p; '  ” 

27©  LET  osy+1 
275  LET  1  =JN  514-35 

26©  IF  INT  Ci  y2>  =i  „•'£  THEN  LET  u 
=u-2*fu>l):  LET  f=f-21 
290  LET  p=p+Ci=251  OR  i  =250)  i  (p 
(31)  -  (  IN  634-55  < 255)  *  ip  > 0J 
300  GO  TO  220 

310  PRINT  RT  7,-12;  INK  5;  ‘'GfiME 

OVER" 

328  IF  r  <11  THEN  PRINT  RT  21,©, 
PRPch  1;  FLRSH  1;  "copter  ten&ir* 
a  ^  €  d  ** 

°338  IF  INKEYS <>""  THEN  GO  TO  33 
© 

34-0  IF  INKETr*=""  THEN  GO  TO  34-0 
350  GO  TO  4-0 

4-00  IF  p=d  iri  THEN  GO  TO  4-2© 

4-@5  BEEP  ,81  —10 

4-10  LET  1=/  -1000 
412  PR  INT  INVERSE  1;RT  l>  ep; 

4-13  BEEP  ,1,-20 
4-14-  PRINT  RT  u,p;‘*  ” 

4-15  IF  i$  =  ”"  THEN  GO  TO  310 
4-16  LET  l$  =  l*i2  TO  } 

4-15  GO  TO  200 

4-20  PRINT  RT  U  ,p;  "  , 

425  PRINT  RT  10+T.0; 


430  FOR  3=0  TO  20 
440  BEEP  .  01,d 
450  NEXT  3 
450  LET  r  =r  +1 

470  IF  r<ll  THEN  GO  TO  200 
460  FOR  3=1  TO  LEN  l*  _ 
490  PRINT  RT  21,26+a;  'V' 
500  BEEP  .5,3+10 
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510  LET  f=f+a*1000 

520  PRINT  RT  21,0;  "fuet  f 

530  NEXT  a 

532  IF  h  <  f  THEN  LET  b  =f 
535  PRINT  INUERSE  1;RT  21,14-;  "h 
i  -score  *’;h 
54-0  GO  TO  310 
610  FOR  b=0  TO  7 
620  REftD  c 

630  POKE  USR  "a  '*  +b,  c 
64.0  NEXT  b 
650  RETURN 

'30®  DRTR  0,05,3.  20 , 6£  ,  S3  ,  £0 , 34- 

MAZURKA 

In  MAZURKA,  you  face  the  shootin'  challenge  of  your  life.  Set  in  a 
fairground,  this  game  is  like  the  Duck  Shoot  ones  where  you  have 
to  shoot  down  ducks  and  other  objects  passing  in  front  of  you. 

This  computer  version  of  the  game,  however,  has  additional 
hazards.  Several  rows  of  objects  move  above  you  in  MAZURKA, 
partially  blocked  by  four  barriers  moving  in  the  opposite  direction. 
Your  aim  is  to  hit  as  many  of  the  objects  as  you  can  without  hitting 
the  barriers.  You  move  your  gun  (graphic  "H")  using  the  keys  "5" 
and  "8",  moving  in  the  direction  of  the  arrows  on  those  keys.  The 
trusty  "F"  key  fires  your  gun.  Only  one  bullet  can  be  on  the  screen 
at  any  one  time.  You  have  limited  ammo  and  the  number  of  shots 
left  is  indicated  by  the  length  of  the  line  below  you. 

As  you  can  see  from  the  sample  printout  the  screen  is  a  wild 
cacophany  of  moving  objects,  creating  an  exciting  display. 
However,  this  is  not  all.  From  time  to  time  a  duck  will  fly  across  the 
screen,  somewhat  like  the  rogue  mother  ships  which  appear 
occasionally  in  'galactic  intruder’  arcade  games.  You  get  a  bonus  of 
six  points  if  you  hit  the  duck  and  lose  1 5  points  if  you  miss  it.  It  is 
fairly  easy  to  hit,  as  the  duck  flies  below  the  barriers,  as  you  can  see 
in  the  sample  run  printout. 

The  subroutine  from  line  600  is  called  from  line  20.  This  routine 
defines  the  user-graphics,  using  "A",  "B",  "C”.  "D",  "E",  "H",  "I" 
and  "J".  When  line  600  (READ  CS)  comes  across  the  "Z"  in  line 
750,  this  triggers  the  RETURN.  Back  near  the  start  of  the  program 
(line  30),  the  PAPER  and  BORDER  are  turned  to  yellow  (colour  six) 
and  the  screen  cleared  to  establish  the  PAPER  colour.  Line  35  puts 
the  INK  to  black  (colour  number  zero)  and  the  program  goes  to  line 
500,  where  the  instructions  are  printed  up: 
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YOU  HAVE  TO  SHOOT  THE  OBJECTS  MOVING  ABOVE 
YOU  WHILE  AVOIDING  THE  BLACK  LINES.  THE  HIGHER 
THE  ROW,  THE  GREATER  THE  SCORE.  MOVE  THE  GUN 
WITH  THE  KEYS  5  AND  8  FIRE  WITH  THE  F  KEY.  ONLY 
ONE  BULLET  MAYBE  PRESENT  AT  ANY  ONE  TIME  AND 
THE  NO.  OF  SHOTS  REMAINING  IS  SHOWN  BY  THE 
LENGTH  OF  THE  LINE  UNDER  YOU.  EACH  TIME  A  DUCK 
GETS  TO  THE  END  OF  THE  SCREEN,  15  SHOTS  ARE 
DEDUCTED  FROM  YOUR  TOTAL  NO. 

After  this  you  are  asked  to  enter  "Y"  to  start  the  game.  This 
instruction  and  "ENTER  Y"  routine  occurs  at  the  end  of  each 
game,  so  you  can  exit  from  the  program  at  this  point  by  entering  an 
"N"  or  an  "n".  Any  other  key,  except  "N"  or  "n"  will  give  you  a 
new  game.  Subsequent  games  do  not,  of  course,  trigger  the 
subroutine  from  line  600  to  initialize  the  graphics. 

Back  at  line  40,  variables  are  initialized,  and  the  string  array  which 
holds  the  moving  targets  (AS)  is  dimensioned.  The  loops  from  60  to 
1 00  randomly  assign  targets  to  the  strings.  They  are  printed  by  line 
95  and  a  rising  tone  is  created  by  line  97  as  the  program  is  setting 
itself  up.  The  B  at  the  end  of  line  1 00  controls  the  length  of  the  line 
which  appears  beneath  you,  i.e.  the  line  whose  length  is  related  to 
the  shots  you  have  left.  B  is  decremented  in  line  21 0,  and  the  end 
of  the  line  is  wiped  out  by  the  PLOT  OVER  which  follows.  AS(5)  is 
set  equal  to  the  moving  barriers,  so  we  have  AS(1 )  through  to  AS(4) 
as  objects  for  shooting,  and  AS(5)  as  the  barrier  which  will  do  its 
best  to  impede  your  shots.  Line  107  BEEPs  to  let  you  know  things 
will  soon  be  under  way. 

The  I  loop,  from  lines  1 1 0  to  350,  is  the  main  part  of  the  program. 
It  controls  the  movement  of  the  objects  in  the  loop  (setting  TS  to 
the  first  element  in  the  string  in  line  1 20  and  adding  this  in  line  1 30 
to  the  end  of  the  string  which  is  stripped  of  its  first  character),  and 
then  prints  them  (line  140),  choosing  different  INKs  for  each  line 
(the  top  line  is  blue,  the  second  red,  the  third  magenta  and  the 
fourth  line  is  printed  in  green).  After  this,  line  170  blanks  out  the 
position  where  the  human  marksman  was  printed  and  line  180 
changes  the  value  of  the  human's  horizontal  position  in  accord  with 
the  key  press  detected  in  that  line  (line  1 90  adjusts  the  position  if  it 
is  far  to  the  right  or  left). 
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You  are  reprinted  in  line  200.  If  B  is  zero,  all  shots  have  been  used 
up,  so  action  goes  from  line  205  to  430  where  you  are  told  you've 
run  out  of  ammunition.  Line  210  is  the  one  which  checks  to  see  if 
you  can  fire  (if  F  equals  one,  no  bullet  is  in  the  air,  so  it  is  OK  to  fire). 
Line  210  also  sets  the  horizontal  coordinate  of  the  bullet  (FX)  equal 
to  the  human  horizontal  position  (G).  F  is  the  vertical  coordinate  of 
the  bullet,  so  (F,  FX)  is  the  location  where  the  bullet  needs  to  be 
printed  and  subsequently  unprinted.  Line  240  decrements  the  F 
coordinate  by  one  (which  has  the  effect,  when  the  bullet  is 
reprinted,  of  moving  it  one  line  up  the  screen). 

Your  marksmanship  is  tested  in  line  250.  If  SCREENS  (F,  FX)  is 
found  to  be  empty,  no  object  lies  directly  above  the  bullet.  If  an 
object  is  found,  a  test  is  applied  to  see  if  it  is  the  barrier  (lines  260 
and  265  test  this;  if  P  equals  five  you  have  hit  the  barrier).  If  you've 
hit  the  barrier,  the  game  is  over  and  the  computer  goes  to  line  400 
to  tell  you  the  happy  news.  If  you  have  not  hit  the  barrier,  but  you've 
hit  something,  that  something  must  be  one  of  the  objects  at  which 
you're  aiming.  Line  270  gives  you  a  score  related  to  how  high  up 
the  object  is  (the  lower  the  value  of  P,  the  higher  up  the  screen  you 
are).  Once  you've  hit  an  object  the  bullet  must  stop,  so  F  is  reset  to 
one  (see  the  end  of  line  270).  If  you  have  hit  the  duck,  P  will  equal 
six,  so  you  get  a  bonus  of  six  points,  and  the  variable  D  is  reset  to 
zero.  The  program  jumps  from  here  to  300  if  a  duck  has  been  hit.  If 
it  has  not,  the  score  is  printed,  flashing,  by  line  275  and  the  element 
of  the  string  which  holds  the  object  you  hit  is  set  to  a  space,  so  the 
object  disappears. 

If  you  have  not  hit  anything  (so  the  GO  TO  300  at  the  end  of  line 
280  is  not  reached),  line  290  prints  the  bullet.  About  once  in  every 
50  passes,  line  300  will  generate  a  new  duck  if  there  is  not  one  on 
the  screen.  Line  320  moves  the  duck  and  330  checks  to  see  if  it  has 
reached  the  right  hand  side  of  the  frame.  If  it  has,  the  duck  is  erased 
by  this  line,  D  is  reset  to  zero,  (the  'no  duck'  condition)  and  15  is 
subtracted  from  your  bullet  tally  before  the  bullet  tally  line  is 
'undrawn'.  The  last  part  of  line  330  (GO  TO  350)  jumps  over  the 
duck  PRINTing  in  340.  Line  350  ends  this  master  loop. 

You'll  recall  that  AS  (5)  holds  the  moving  barriers.  In  360  TS  is  set 
equal  to  the  final  element  in  AS  (5),  and  this  is  moved  to  the  front  of 
the  String  in  line  370.  This  is  the  opposite  of  what  happens  to  all  the 
other  elements  of  the  AS  array,  so  the  barriers  move  in  the 
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opposite  direction  (although  at  the  same  speed)  to  the  target 
objects. 

Line  380  prints  the  barrier  and  390  sends  action  back  to  line  1 10 
where  the  master  loop  begins  again.  Lines  400  and  420  are 
triggered  if  you  hit  the  barrier  (P  equals  five,  from  earlier  in  the 
program)  and  after  telling  you  this,  the  program  goes  to  450  to  print 
out  your  score.  If  you  run  out  of  bullets  (that  is,  the  variable  B  equals 
zero)  lines  430  and  440  are  triggered:  "YOU  HAVE  NO  MORE 
BULLETS  LEFT".  After  the  end  of  game  messages,  the  title  page 
re-appears,  and  you  enter  anything  except  "N"  or  "n"  for  a  new 
game. 

Here  is  the  program  in  action: 


fcfcxYggft  ye*. vv 

ggftftYV  ft  V  V  l 

V*ftftvr  fVhfV  ±±  ft  ftfeS-Vft 


And  this  is  the  program  listing: 

20  GO  SUB  600 

30  PAPER  6:  BORDER  6.-  CLS 

35  INK  0:  GO  TO  500 

*0  LETT  G=16.  LET  F*l:  LET  3=0 

50  LET  FX »0 .  DXH  R*f5,32.».-  CLS 

60  FOR  1=1  TO  4- 
70  FOR  d=l  TO  32 

60  LET  R*fX,d>  =CHR*  fXNT  .  f RND * 
5)  +14-4-) 

90  NEXT  d 

95  PRINT  RT  1*3,0; R* (I) 

97  BEEP  .4.,  142 
100  NEXT  I:  LET  BsS56 


40  Arcade  Games 


102  LET  D=0 :  DRflU  255,0 

LET  9$(5)  —  «_ 

1 07  BEeF^^ 9 

110  FOR  1=1  TO  4- 

120  LET  T*=R$<X,1) 

130  LET  R*  dJ  =R$ CI,2  TO  )  +T$ 

14-0  PRINT  INK  X;  RT  I*3,0;R*fX) 
170  PRINT  RT  20,0;"  " 

100  LET  G=G  +  tINKEY$="8'\>  -  fINKEV 
$  =  "5%1) 

190  LET  G=G+ tG=-l) - CG=32) 

200  PRINT  RT  20,G;"i" 

205  IF  B=©  THEN  GO  TO  4-30 
210  IF  F=1  RND  INKEY*="F"  THEN 
PRINT  RT  1  ,FX;  M  LET  F=20:  LET 

FX®G:  BEEP  .02,-15:  LET  B=B-1 : 
PLOT  OUER  1;B,0 
220  PRINT  RT  F.FX; "  " 

230  IF  F=1  THEN  GO  TO  300 
24-0  LET  F=F-1 

250  IF  SCREENS  tF,FX*="  "  THEN 
GO  TO  290 

2S0  LET  P=F/3;  BEEP  .02,6 
265  IF  P=5  THEN  GO  TO  4.00 
270  LET  S=S+5-P:  LET  F=1 
272  IF  P=6  THEN  LET  S=S+6:  PRIN 
T  RT  1B,FX;B*  LET  D=0:  GO  TO  3 

00 

275  PRINT  FLRSH  1;RT  0,10; S 
280  LET  R*  CP,FX  +  lJi  =*'  GO  TO  3 

©0 

290  PRINT  RT  F,FX;"A" 

300  IF  D=0  RND  RND  > .  98  THEN  LET 
D=1 

310  IF  D=0  THEN  GO  TO  35© 

320  LET  D=D+1 

330  IF  D=31  THEN  PRINT  RT  18,31 
;  "  LET  D=0:  LET  B=B-1S;  LET  B 

=B*(B>=0);  DRRU  OVER  1; -PEEK  236 
77+B,0:  BEEP  .02,9:  GO  TO  350 
34.0  PRINT  RT  1S,D;“ 

350  NEXT  I 

360  LET  T  $ =R$ C  S , 32  ) 

370  LET  R$ tSJ =T$+fi$ t5,  TO  31) 
360  PRINT  RT  15,0;R$(S) 

390  GO  TO  110 
4-00  BEEP  2,-9 

4.10  PRINT  FLRSH  l;RT  ©,©,"YOU  H 
IT  THE  BRRRXER  " 

420  GO  TO  4.50 
4.30  BEEP  1,1:  BEEP  1 , 9 
4-4-0  PRINT  FLRSH  1;  RT  0,0;  "YOU  H 
RVE  NO  MORE  BULLETS  LEFT" 

4.50  PRINT  FLRSH  l;  INVERSE  1;"Y 
OUR  SCORE  IS  " ; S 
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**********  POT  shot  w 
kkLLllLlLill"  '  "YOU  HAUE  TO  SHOOT 


THE  OBJECTS  MOUING  ABOUE  YOU 

UHXLE  AUOIDING  THE  BLACK  LINES 


.  THE  HIGHER  THE  ROU,  THE  GRE 
ATER  THE  SCORE.  MOUE  THE  GUN  UIT 
H  KEYS  5  AND  S  FIRE  WITH  THE  F 


KEY.  ONLY  ONE  BULLET  HAY  BE  PR 
ESENT  AT  ANY  ONE  TIME  AND  THE 

NO.  OF  SHOTS  REMAINING  IS  SHO 
UN  BY  THE  LENGTH  OF  THE  LI 

NE  UNDER  YOU.  EACH  TIME  A  DUCK 


GETS  TO  THE  END  OF  THE  SCREE 


N,  15  SHOTS  ARE  DEDUCTED  FROM  YD 
UR  TOTAL  NO.** 

515  PRINT  ' ' "PRESS  Y  TO  START , 

N  TO  STOP" 

52®  IF  INKEY $  =  " "  THEN  GO  TO  52® 
53®  IF  INKEY$a"N"  OR  INKEY»="n" 
THEN  STOP 
54-®  GO  TO  4-0 
ego  eTOO 

60®  READ  C$ :  IF  C*=*'Z“  THEN  RET 
URN 

SI®  FOR  1=0  TO  7 

52®  READ  N:  POKE  USR  C-$+I,N 

63®  NEXT  I 

64.®  GO  TO  6©0 

65®  DATA  *’ A“  ,  BIN  0011000®  ,  BIN  ® 
111000®, BIN  00100001, BIN  0011111 

O,  BIN  00011100, BIN  00001000, BIN 
00011000,255 

660  DATA  "B" ,0,0, BIN  01100001, B 
IN  11100001, BIN  00111110, BIN  0®0 
10010, BIN  00110110,255 
S70  DATA  "C” , BIN  00011000, BIN  0 
1111110, BIN  10111101, BIN  0110011 
0 , BIN  00011000, BIN  10111101, BIN 
10011001,255 

680  DATA  "D" , BIN  01111100, BIN  1 
0010010, 254-,  254-,  BIN  1108011®, BIN 
81111100, BIN  00111080,255 
6B5  DATA  "E",BIN  0011100B,BIN  0 
0111000,  16,254-,  16,4-0,4.8,255 
630  DATA  "H” , BIN  00111000, BIN  0 
0111800, BIN  80811880, BIN  808110® 
0 ,BIN  00011110, BIN  08011088, BIN 
88011111, BIN  00101111 
700  DATA  "I" ,0,8,8,28,26,28,62 , 

8 


71©  DATA  “J" ,8, 0,32, 18,255, BIN 
18011000,16,32 
750  DATA  "Z" 


LiDG  —  !t=H  1  =  1  <FBJ 


42  Arcade  Games 


ALPHABATTLE 

In  this  unusual  game  you  are  in  control  of  a  green  helicopter  while 
the  Spectrum  takes  charge  of  the  blue,  swing-wing  jet  fighter.  You 
are  battling  for  possession  of  the  alphabet.  The  letters  you  own  are 
down  the  left  hand  side  of  the  screen  and  the  computer's  are  on 
the  right. 

Using  the  "5"  and  "8"  keys  to  move  horizontally,  and  "w"  and 
"z"  to  move  vertically,  you  position  yourself  in  front  of  one  of  the 
enemy's  non-flashing  letters.  You  then  press  "o"  and  immediately 
the  corresponding  letter  on  your  side  will  start  flashing.  The  enemy 
letter  will  vanish,  your  score  will  be  incremented,  and  you'll  be 
transported  back  to  the  right  hand  side  of  the  screen  for  another 
foray  into  battle.  Note  that  you  can  press  more  than  one  key  at  a 
time  (as  IN,  rather  than  INKEYS  is  used  to  read  the  keyboard;  see 
lines  41 0  and  420)  so  diagonal  movement  is  possible.  While  you're 
doing  all  this,  the  computer  is  similarly  engaged  in  stealing  your 
letters. 

Hovering  in  front  of  the  letters  and  pressing  "o"  is  one  way  of 
obtaining  letters.  There  is  another  method.  If  the  computer's  blue, 
swing-wing  jet  fighter  is  on  the  same  line  as  any  of  its  non-flashing 
letters,  you  can  position  yourself  on  the  same  line,  and  fire  at  it 
using  the  letter  "o".  The  computer  will  also  try  to  fire  at  you,  so  the 
display  can  get  quite  lively. 

The  game  ends  when  all  of  the  letters  have  been  captured  by 
one  side  or  the  other.  The  computer  will  then  display  the  winning 
score.  (You,  by  the  way,  are  referred  to  as  the  'humanoid'  in  the 
score  sequence.) 

Lines  100  to  150  define  the  graphics  (the  letters  used  are  "a", 
"b",  "c"  and  "d”)  reading  from  the  DATAfrom  line  900.  Two  arrays 
are  dimensioned,  p  and  t,  and  22  letters  of  the  alphabet  are 
distributed  to  each  array,  positioned  randomly  within  them,  and 
printed. 

Your  helicopter's  position  is  defined  by  the  values  of  u  and  p.  The 
vertical  coordinate  (p)  starts  at  29  (see  line  290)  and  the  horizontal 
one  above  the  position  where  your  last  letter  was  printed.  The 
computer's  position  starts  at  a  similar  location  in  relation  to  its  own 
last  letter,  using  a  and  t  (which  starts  at  1,  see  line  310).  Lines  410 
and  420  read  the  keyboard,  using  IN  as  mentioned  before,  and  you 
are  printed  by  line  430.  If  you  have  decided  to  capture  a  letter,  or 
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fire  at  the  computer's  craft,  line  440  sends  the  action  to  line  580 
which  further  directs  the  program  to  the  subroutine  from  line  1 050 
which  fires  your  laser  weapon  if  needed.  If  a  equals  u  in  line  440, 
then  the  program  goes  to  700  to  capture  the  letter  and  increment 
the  score.  If  you  are  hard  over  to  the  left,  p  will  equal  1,  so  the 
computer  will  go  to  700  anyway  to  do  those  two  tasks. 

Line  460  blanks  out  the  position  of  the  Spectrum's  fighter  and 
uses  the  next  routine  to  determine  its  new  position.  The  variable  a 
which  controls  the  vertical  position  of  the  jet  is  changed  in  line  480 
and  t  is  changed  in  the  following  line  to  bring  the  jet  closer  to  your 
helicopter.  Lines  610  and  620  add  a  random  element  to  the 
computer  jet  movements. 

Line  650  reprints  the  jet  in  its  new  position  and  the  start  of  line 
660  determines  whether  or  not  the  jet  will  try  to  shoot  at  you, 
sending  the  program  to  the  subroutine  from  1000  if  it  does  decide 
to  take  a  shot.  If  t  is  29,  the  computer  knows  it  is  over  on  your  side 
of  the  screen,  so  it  sends  action  to  the  subroutine  from  1 100  which 
captures  the  relevant  letter.  It  then  unprints  the  letter  at  the  same 
height  on  the  left  side,  going  to  the  subroutine  from  800  for  a 
victory  trill  before  returning  to  put  the  letter  in  place.  If  the  scores 
achieved  by  you  (s)  and  the  Spectrum  (x)  together  total  22,  the 
game  is  over  and  line  735  redirects  the  program  to  1 200  where  the 
screen  is  cleared  before  the  result  of  the  ALPHABATTLE  is 
declared.  Line  745  unprints  the  jet  from  its  old  position,  and  resets 
p  and  u  before  returning  to  line  400  so  the  merry  dance  can  begin 
again. 

1®  REM  fUphafca  1 1  te 
IS®  FOR  a  =1  TO  4- 

110  FOR  b=©  TO  7 

ISO  HERD  c 

13®  POKE  U5R  CHR$  C  14-3+a}  -J-b  <  c 

14-©  NEXT  b 

150  NEXT  a 

£0©  DIN  p (S; 22? 

205  DIM  t  t2,22J 
21©  FOR  P=1  TO  22 

£15  FOR  f  =1  TO  2 

220  LET  e=INT  (RND*22> 

230  IF  pff,e+I>>0  THEN  GO  TO  22 

© 

24-©  LET  p  =p 

250  PRINT  INK  S; RT  e  ,  f f =2} *31; C 
HRS  tS4--s-p} 

255  LET  t  t  f , p }  =e  +1 
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260  NEXT  F 

270  NEXT  P 

280  LET  U  =t  (2,22)  -1 

£9©  LET  P=29 

30®  LET  a  =  t  Cl,  22)  -1 

31®  l_ET  t=i 

32®  Dl'ri  h  (£/22) 

33©  LET  S=© 

34-0  LET  X  =© 

4©0  PRINT  RT  u,p;" 

41©  LET  P=p+iIN  6143S< >255) * (p 


i  1  -p 


a«>  -  V  IN  63486 <  >2551 

~.t?®  ,  *=ET  ^  =o  +  4 ©5S7S  <  )£55)  *  iy; 
S451©< >255? * (o >©) 

^O^T  RT  o  ,  p  ;  INK  4; 

44©  IF  IN  &7v54 2  <  >255  RND  P  >  t  TH 
EN  GO  SUB  SB©:  IF  a=U  THEN  GO  TO 

f  ©8 

4S®  IF  p=l  THEN  GO  TO  7©© 

46©  PRINT  RT  g^t;  " 

47©  IF  p  CljU+i)  <11  THEN  GO  TO  5 
5© 

480  LET  a  =a  +  i a  <o )  -  { a  >o) 

49©  LET  t=i+(RBS  ia-u)  <flBS  i  t -P 
)  )  -  { fiBS  1 3  -u  )  > fiBS  (  t  -p )  ;•  J  f  t  >li 
5©8  GO  TO  65© 

55©  IF  htl,p»2(a+l))si  OR  h(S,p 

(2,  a  413  *  =1  THEN  GO  TO  60© 

St:-©  LtT  1  =  i  +  i 
57©  GO  TO  5s0 
56©  GO  SUB  1©5© 

59©  BEEP  .©05,-20:  GO  SUB  I  ©5© 
595  RETURN 
&00  LET  r  =RND 

SI©  IF  RND  <  .  5  OR  O  =21  THEN  LET 
a=a -  Cs  >  0  ) 

620  IF  RNB  > . 5  OR  a  =0  THEN  LET  a 

=a  +  C 3 \S0s 

650  PRINT  RT  3,t;  INK  5; 

660  IF  RBS  Ca-U) <3  RND  p>t  RND 
h{l,p(l,u+l)>=0  RND  bf2,p(l,u+l) 

}  =©  THEN  GO  SUB  1000:  BEEP  .©05.- 
0:  GO  SUB  1000:  IE  S  =0  THEN  GO  T 
O  65© 


58© 

590 

595 

600 

61© 


i©5© 


a  =0  THEN  LET 


670  IF  t  =29  THEN  GO  TO  1100 
680  GO  TO  40© 

700  IF  h  (l,p (1,0+1) )  -1  OR  b (2,p 
(1,0+1) ) -1  THEN  GO  TO  745 
705  PRINT  RT  O , 0; “  " 

710  GO  SUB  S00 

72©  PRINT  FLRSH  1;RT  t(2,pfl,D  + 
1) ) -1,31; CHR*  (64+p  (1,0+1)  ) 

730  LET  s=s+ (  (h  (2,p  (1,0+1)  )  )  =0) 
735  IF  S+x-32  THEN  GO  TO  1200 
740  LET  b ( 2 , p (1,0+1)) =1 
745  PRINT  RT  0,p;" 
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760  IFTu=a2THE*f  LET  U  =  t»=fr* 

?65  PRINT  81;  RT  i,0; "Score  ,  Cx 
> , "Score  (s> 

770  GO  TO  4-00 
300  BEEP  -005,10 
310  BEEP  •  01 , 20 
330  BEEP  -005,10 
830  RETURN 
850  PRINT  RT  a , t ; “ 

©60  LET  a  =U 
87©  GO  TO  1100 

900  DATA  0,64, 4-3, 62, 31, 31, 31, 32 
905  DRTR  0,8,0,0,132,252,0,0 
910  DRTR  0,3,7,15,31,3,127,0 
920  DRTR  0,230,230,24-6,25*,  16,2 
54- ,  0 

1800  PLOT  OUER  1; (t+2) iS,(21-a) a 

1010  DRAW  OUER  1;  INK  3;  (p-t}*S, 
0 

1030  RETURN 

1050  PLOT  OUER  1;  p*3,  tSl-uJ  +8 
1060  DRRW  OUER  1;  INK  5; it-p>+6, 
0 

1070  RETURN 

1100  IF  h (2  ,  p (2,3*1} }  =1  OR  h(I,p 
(2,a+l}>=l  THEN  GO  TO  116© 

1105  PRINT  RT  a  ,31;  **  " 

111©  GO  SUB  SO© 

1120  PRINT  FLASH  1;RT  tfl,p/2,3  + 
1>  J  -1,0;  CHR*  ( 64- +p  (2,a+l}  } 

1130  LET  X  =x  +  (  (h  1 1  ,p  (2,  a  +  l.>  >  >  =©} 
114-0  IF  X  +s  =22  THEN  GO  TO  1200 
1150  LET  h fi,p (2,3+1} } =1 
1160  PRINT  RT  a , t ; ” 

1170  LET  t  =1 

IIS©  IF  0=3  THEN  LET  a =10=0} 

1190  GO  TO  765 
IS©©  CL 5 

1205  PRINT  RT  11,12,"GRHE  OUER" 
1210  PRINT  RT  19,0; 

1220  PRINT  “spectrua 
1230  FOR  a  =1  TO  X 
1240  PRINT  "y"; 

1250  NEXT  a  .  „ 

1260  PRINT  TRB  25;  x  ,,ho»aoo  j  &  *'; 
1278  FOR  3=1  TO  s 
1280  PRINT  ■\"; 

1290  NEXT  a 

1300  PRINT  TRB  25;  S 

1310  IF  INKEY* <>""  THEN  GO  TO  13 
10 

1320  IF  INKEY*=“ "  THEN  GO  TO  132 
0 

1330  RUN 
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SMASHOUT 

In  this  colourful  version  of  'Breakout'  you  have  to  try  to  break 
through  the  brick  wall  using  a  sharp-edged,  diamond-shaped  ball. 
As  you'll  see  when  you  run  this  game,  the  graphic  "A"  has  been 
redefined  to  look  just  like  bricks.  The  wall  you  are  trying  to  smash 
through  looks  very  effective  indeed.  You  get  12  balls  to  bounce  at 
the  wall  and  movement  of  your  paddle  (at  the  bottom  of  the  screen) 
is  controlled  by  the  "5"  (left)  and  "8"  (right)  keys.  The  score  is 
shown  at  all  times  and  is  updated  on  the  screen  when  necessary. 

Line  15  sets  the  BORDER  and  PAPER  to  red,  and  the  INK  to 
white.  The  frame  within  which  the  game  must  be  played  is  printed 
by  line  20  (the  top)  and  the  loop  in  line  30,  is  green.  (There  is  no 
need,  of  course,  to  stick  to  my  colour  scheme  in  any  of  these 
programs;  different  televisions  react  differently  to  the  Spectrum's 
colour,  and  combinations  which  work  well  on  my  television  may 
prove  unsuitable  on  yours,  so  feel  free  to  experiment).  The  variable 
S  (for  the  score)  is  set  to  zero  in  line  35,  and  A  and  B  (which  control 
the  flight  of  the  ball)  are  both  initialized  at  one  in  this  line.  Lines  40 
and  42  are  loops  which  define  the  bricks  (line  40)  and  the  ball  (42), 
drawing  on  the  DATA  statements,  lines  21 0  and  21 5. 

The  next  loop,  from  lines  45  to  55,  prints  in  the  bricks.  Note  that 
line  55  consists  of  28  graphics  "A".  Line  50  chooses  a  random 
number  to  determine  the  colour  of  each  row  of  bricks.  The  second 
part  of  the  line  checks  that  the  chosen  colour  is  not  red  (that  is,  two) 
which  would  make  it  the  same  as  the  background  colour.  If  it  finds 
that  red  has  been  selected  (that  Z  equals  two)  then  it  goes  back  to 
the  start  of  the  line  to  choose  a  new  colour. 

The  next  line,  60,  determines  the  starting  position  of  the  ball.  The 
ball  is  printed  at  X,  Y  and  the  variables  which  will  be  used  to 
'unprint' the  ball  (DXand  DY)  are  set  equal  to  X  and  Yin  this  line.  If  Y 
is  greater  than  28  or  Y  is  less  than  three,  then  the  ball  has  hit  one  of 
the  sides,  so  line  65  sends  attention  to  line  1 55  where  its  direction 
is  reversed  (that  is,  it  is  made  to  'bounce'  off  the  side  wall). 

If  X  is  less  than  two,  then  the  ball  has  hit  the  top  of  the  frame  and 
line  70  bounces  it  downwards.  Line  75  checks  to  see  if  the  position 
the  ball  will  occupy  contains  a  brick  and  if  it  finds  it  does,  goes  to  the 
subroutine  from  1 25  which  makes  a  brick-smashing  sound  (!)  and 
changes  the  value  of  B,  which  is  used  to  increment  the  Y  value.  If  X 
is  less  than  20,  the  ball  is  at  the  bottom  of  the  frame.  Line  80, 
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alerted  to  the  ball's  position  by  the  X  value,  checks  to  see  if  the 
paddle  is  in  the  right  position  to  deflect  the  ball.  If  it  is,  the  bounce 
sound  is  made  (BEEP  .008,10)  and  the  variable  A  which  controls 
the  change  in  the  ball's  vertical  position  is  multiplied  by  minus  one. 

The  first  part  of  line  85  uses  the  variables  DXand  DY  to  blank  out 
the  old  position  of  the  ball,  and  then  the  ball  is  reprinted  using  X  and 
Y.  Line  90  prints  the  paddle.  Note  how  it  has  a  space  at  each  end, 
which  means  the  moving  paddle  automatically  blanks  out  its  old 
position.  The  routine  in  line  95  reads  the  keyboard  and  uses  the 
INKEYS  reading  and  the  value  of  N  to  change  the  value  of  N,  which 
determines  the  position  of  the  paddle. 

The  ball  position  is  updated  in  line  105.  If  X  is  greater  than  21  (line 
1 1 0),  the  computer  knows  the  ball  has  missed  the  paddle  and  fallen 
out  of  the  bottom  of  the  frame.  The  subroutine  from  line  1 65  prints 
out  the  ball  number,  the  ball  variable  (Q)  is  incremented  by  one  and 
a  'new  ball'  noise  is  created  in  line  1 75.  The  number  of  balls  used  is 
checked  in  line  180  and  if  it  is  found  to  be  12  or  less,  the  program 
'falls  through'  to  the  next  line.  If  12  balls  have  been  used,  the 
message  GAME  OVER***STAND  BY  is  flashed  on  the  screen  in  a 
variety  of  colours,  as  a  sound  loop  generates  some  audio  backing 
for  the  colourful  flashing.  After  this  breathless  display,  a  new  game 
begins. 

If  the  maximum  value  of  Q  has  not  been  exceeded  a  new  starting 
position  for  the  ball  is  generated,  the  bottom  line  of  the  frame  is 
totally  overprinted  to  remove  the  old  position  of  the  paddle,  and  the 
direction  of  the  ball  (either  to  the  right  and  up,  or  to  the  left  and  up) 
is  determined  by  the  value  given  to  M  in  line  185,  and  imported  to 
the  variable  B  in  line  200.  Attention  then  shifts  back  to  line  60 
where  the  song  and  dance  begins  again.  The  final  two  lines  of  the 
program — 21 0  and  215 — contain  the  DATA  for  the  bricks  and  the 
ball  respectively. 

I©  REM  Saashout 

i5  BORDER  2:  PARER  2:  INK  7:  C 
LS  _ 

SB  PRINT  INK  4-t" 

as  LET  0=1 

30  FOR  N=1  TO  SO:  PRINT  RT  N ,  I 
;  INK  4;  **B 

B*4  •  N 

35  LET'  3=0:  '  LET  R=l:  LET  B=1 
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*0  FDR  N-U3R  TO  USR  *‘R“*6; 

REflD  K:  POKE  N,K:  NEXT  N 
4.2  FOR  N=U5R  "B**  TO  USR  *'B***5: 
REPD  K:  POKE  N,K:  NEXT  N 
4^5  FOR  N=2  TO  8 

50  LET  Z  =  INT  (RND*6)  :  IF  Z=2  T 
HEN  GO  TO  50 

55  PRINT  RT  N,2;  INK  Z;  BRIGHT 
,  NEX1:  N 

50  LET  N=15:  LET  X=20:  LET  Y=t 
NT  ( RND *3.0)  *5;  LET  BX  =X  .  LET  BY  = 
Y 

55  IF  Y  >25  OR  Y  <3  THEN  GO  SUB 
15© 

70  IF  X  <2  THEN  LET  R  =  -R 
75  IF  SCREENS  fX,YJ <>"  1  THEN 

GO  SUB  125 

SO  IF  X  >20  RND  CY=N*2  OR  Y=N+1 
OR  Y=N+3i  THEN  LET  R  =  -R:  BEEP  * 
005 ,10;  LET  Y =Y * 1 

55  PRINT  HT  DX#DY;m  ";RT  X,¥;  *" 

♦  LET  DX  —X  :  LET  BY  =Y _ 

20  PRINT  RT  21 ,  N;  ’*  WBB  " 

25  LET  N=N+ C INKEY S=“8"  RND  N<  = 
26)  -{INKEYJ^^S11  RND  N>0> 

105  LET  X=X-R:  LET  Y=Y+B 
110  IF  X  >21  THEN  GO  TO  155 
115  PRINT  RT  0, 5;  INUER5E  1; "SO 
ORE  =  “ ; S :  INUER5E  8 
120  GO  TO  55 
125  BEEP  , 005  ,  20 

13©  PRINT  RT  DX,DY;“  ‘ ; RT  X,Y;” 

135  LET  R  =  -l 

14-0  LET  S=S*1 

14-5  RETURN 

150  BEEP  ,008,30 

155  LET  B  =  l-2*  CY  >28  OR  Y <2} 

150  RETURN 

155  PRINT  RT  ©,2©;  INUERSE  1;  "B 
RLL :  • ; Q :  INVERSE  0 

170  LET  ©=G*1 

175  BEEP  1,0:  BEEP  0.02,20 
150  IF  O  > 12  THEN  FOR  Z  =  1  TO  10: 
PRINT  RT  5,5;  INK  RND*5;  FLR5H 
1;  “GfiHE  OUER^^^STRND  BY"  :  FOR  B  = 
©  TO  3S  STEP  3:  BEEP  .©©S,D:  BEE 
P  .00S,-tDJ;  NEXT  D:  NEXT  Z:  RUN 

185  LET  M=RND 

120  PRINT  RT  21,©;" 

»* 


125  LET  R=1 

200  LET  B  =  -B*  CH<0.5J  *B*  CM>=0.5) 
205  GO  TO  5@ 
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3®  READ  a£ia) 
4-8  NEXT  a 
50  DftTfi  ”  > 

•*  «>  J  L 

*  m 


I  “ 


Jf  fc 


55  LET  S=1 
60  LET  a =9 

70  LET  t  =INT  (RND*22> 

S0  print  fir  21,1*;  ink  2;  "sirs# 

#“ 

90  FOR  b  =  i  TO  12 
10®  PRINT  AT  3  +  fevt;*tiIHr  f  ffr/1 
-  3>  *,5>  } 

1ST  SEEP  l.'S  ,  b 

107  LET  S=S+i:  PRINT  AT  0,0;  S- 
HO  PRINT  hT  a  +  b  ,  0;  ** 

u 

120  LET  t  =t  -  f  { INKEY*  =“S*"X  *  £t  >0) 
- ( INKEYS=”5"J  a-  ft  <213  J  3-  i  INT  ffc.,'43 

' 138  NEXT  b 

148  IF  t  >14  OR  tO  THEN  GO  TO  2 

n. 

168  LET  i = - i 

170  IF  i  =-i  THEN  PAPER  ®Y  BO  ROE 
R  0 :  INK  6 

160  IF  i  =1  THEN  PAPER  INT  I'RND* 
7}  +1 :  BORDER  4;  INK  0 
198  CL6 
195  GO  TO  60 
288  r  OR  3=1  TO  28 

285  LET  n=iNT  t'RNDiS)  :  IF  n  =2  T 
HEN  GO  TO  2S5 
218  PAPER  n :  CL 5 
=20  NEXT  3 

225  PAPER  6:  INK  0;  C-LS 

238  PRINT  AT  11 , 10, "Score  * ; 3 

235  PRINT  AT  lS,iS; "Press  any  k 

ey  ** 

248  PAUSE  8 
25©  RUN 


DEATH  RACE  2000 

Can  you  elude  the  fearsome  green  creepie-crawlie  and  get  through 
DEATH  RACE  2000  before  you  are  caught?  This  program  will  help 
you  answer  that  question. 

The  program  creates  a  rectangular  maze  on  the  screen  with  you 
on  the  left  and  the  aforementioned  creepie-crawlie  somewhere  in 
the  body  of  the  maze.  Using  the  "5"  and  "8"  keys  to  move  left  and 
right  respectively  and  "w"  and  "z"  to  move  up  and  down,  you  have 
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to  manipulate  the  little  man-child  (the  figure  at  the  end  of  line  240) 
from  the  left  to  the  extreme  right  of  the  maze. 

Line  5  seeds  the  random  number  generator  and  lines  1 0  to  30  set 
the  BORDER  and  PAPER  to  black  and  the  INK  to  yellow.  Line  40 
sends  action  to  the  initialization  subroutine  at  line  500  where  DATA 
is  held  for  the  two  user-defined  graphics  (the  man-child  and  the 
creepie-crawlie).  Once  the  graphics  have  been  defined,  the 
program  returns  to  line  50  where  a  function  to  generate  random 
numbers  is  defined.  The  screen  clears  in  line  55,  triggering  the 
PAPER  colour  set  in  line  30  and  two  variables  x  (the  number  to  be 
used  in  function  a  to  produce  random  gaps  in  the  walls  of  the  maze 
in  lines  160  and  170)  and  s  (your  starting  score,  which  is 
decremented  in  line  245  by  1 6  each  time  through  the  master  loop) 
are  initialized. 

Line  1 00  prints  a  solid  yellow  bar  across  the  top  of  the  screen  and 
then  the  loop  from  1 10  to  130  prints  bars  down  the  screen  in  cyan 
(line  1 20)  with  the  right  hand  side  of  the  frame  (line  1 25)  in  yellow. 
Line  140  completes  the  raw  material  for  the  maze  with  a  solid  bar 
along  the  bottom. 

Function  a  now  comes  into  its  own,  printing  blanks  at  random 
spots  on  the  solid  walls  of  the  maze.  These  are  the  spots  which  you 
must  use  (and  which  the  c.c.  uses)  in  your  breathless  race  for  the 
right  hand  side.  Lines  1 90  to  220  assign  values  to  u  (the  horizontal 
coordinate  of  the  man-child's  starting  position),  t  (the  vertical  of  the 
creepie-crawlie's  start),  a  (the  creepie-crawlie's  horizontal  starting 
coordinate)  and  p  (this  is  given  a  value  of  1 ,  as  the  man-child  must 
start  on  the  left  hand  side  of  the  DEATH  RACE). 

Line  235  checks  to  see  if  the  creepie-crawlie  and  the  man-child 
are  occupying  the  same  spot.  If  they  are,  the  creepie  has  struck  and 
the  program  moves  to  line  400  where,  after  a  short  snatch  of  the 
'Creepie-Crawlie  Victory  Anthem',  you  are  informed  that  you  lost 
the  DEATH  RACE.  The  rest  of  the  major  loop  from  230  to  31 5  looks 
after  reading  the  keyboard. 

"You  won  the  Death  Race"  is  the  joyous  news  from  line  360. 
365  checks  to  see  if  you've  beaten  the  high  score,  adjusting  the 
high  score  variable  (h)  to  that  of  the  score  (s)  if  necessary,  and  lines 
370  and  375  print  out  the  score  and  high  score  respectively.  Note 
that  line  370  uses  the  length  of  the  string  version  of  the  score  (LEN 
STRS  s)  to  position  the  printout.  Lines  380  and  390  wait  until  you 
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take  your  hands  off  the  keyboard  (380),  then  until  you  press  a  key 
(390)  to  start  a  new  race  (from  line  55).  When  you're  really 
confident  of  your  ability  in  mastering  the  DEATH  RACE,  you  might 
like  to  modify  the  program  to  have  two  or  more  creepie-crawlies. 

5  RRNDGH JZE 
7  i_f=T  h  =S 
10  BORDER  0 
20  INK  5 
3©  PRPER  0 
4LS  GO  SUB  50© 

50  DEr  EH  3  fX  *  =IHT  *1 

55  CI.S 
5©  LET  X  -20 
70  LET 
60  REH 
9©  REtt 
10©  PRINT  INUERSE  l; " 

110  FOR  3  =0  TO  20 _ 

128  PRINT  INK  5;  "  ■  ■  B  H  A  A  A 

*25  PRIK®  Sr  3730;  INVERSE  1;  " 

9  **  i 

130  NEXT  3 

14-0  PRINT  BT  21,0;  INVERSE  1,:” 

150  FOR  a =2  TO  28  STEP  2 
160  PRINT  RT  FN  afxJ,a;**  ** 

170  PRINT  RT  FN  3  I.YJ  ,3(‘  "  " 

130  NEXT  3 

190  LET  U=FN  3  (X) 

200  LET  a  =FN  a  CXJ 

210  LET  p=l 

220  LET  t=FN  a  CIS)  *2-1 

230  PRINT  RT  INT  3,t;  INK  4-i  ”X” 

235  IF  RTTR  Cu,p)=4.  THEN  GO  TO 
4.00 

24-0  PRINT  RT  U-p;"jt“ 

24-5  LET  5  =5  -16 
250  BEEP  -  03, S .'200 

255  PRINT  RT  0,1;  INVERSE  1;*;” 

260  PRINT  RT  0,p.:*‘  '* 

265  IF  INKEy*  =  '*S*'  RWD  RTTR  CL«,p 
+1)  =6  THEN  LET  p=p+2.-  BEEP  -1  ,P/ 
BEEP  -l,p-12 

270  IF  INKEY*=**5**  BND  RTTR  fU,P 
-1)  =6  THEN  LET  p=p -2:  LET  5=S-10 
0.-  BEEP  .1,0 

275  IF  p  =29  THEN  GO  TO  320 
280  LET  U=U+  CINKEy*=**I*M  *  fu  C20) 
- C INKEY$  =  "W ” )  *  <  U  > 1 ) 

285  PRINT  RT  INT  a ,  t ;  **  ** 
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S90  LET  a=a+RN0* fINT  a<Ui-RWOf ( 
IHT  a > U 3 

295  IF  flTTR  fXNT  a,  t  4-15  =6  RNP  t 
<p  THEN  LET  t  =  t +2 
300  IF  fiTTR  fINT  3,t-li=&  RND  t 
>p  THEN  LET  t=t-2 
315  GO  TO  230 
320  FOR  a =30  TO  60 
330  BEEP  .01,3 
34-0  BEEP  .01.-3  -12 
35©  NEXT  a 

36©  PRINT  RT  U,8;  PUER  1 ; "YO U  W 
on  tne  Death-  Race” 

365  IF  h  is.  THEN  LET  h  =3 
37©  PRINT  RT  U*l-2f fU=20) ,30-LE 
N  STR$  SJS 

375  PRINT  RT  0,1;  FLR5H  f  H  =S  J  ; 
INVERSE  l; "HI-SCDRE  " ; h 
380  IF  INKEY^O""  THEN  GO  TO  38 

0 


385  IF  INKEY $=""  THEN  GO  TO  385 
39©  GO  TO  55 

4.0©  FOR  f  =6©  TO  3©  STEP  -1 
4-1©  BEEP  .01,/ 

4.2©  BEEP  .01,f-12 
4-30  NEXT  f 

4-4-5  PRINT  RT  U  +1  -2i  (U  =20)  ,  7  :  OU 
£R  1;  "You  Lost  tbs  -Psatb  Rare” 

INK®^"?^  RT  INT  S't;  FLRSH  1; 
4-60  GO  TO  375 

0500  DRTR  24-, 24-, 4-8, 94-, 16,104-, 76.- 

51©  DRTR  ©,34-,  84-,  12,  12, 84-.  34^,0 
520  FOR  3  =0  TO  1 
530  FOR  b=0  TO  7 
54-0  RERD  C 

550  POKE  USR  CHR$  1 14-4- 4-3 )  +b,  C 
560  NEXT  b 
570  NEXT  3 
580  RETURN 


CLONE  CRAZY 

A  single  zombie  has  had  itself  cloned  19  times  and  20  identically 
evil  zombies  are  out  to  get  you.  You  are  trapped  within  a  rect¬ 
angular  area  of  Zombieland  where  the  principal  topographical 
features  (apart  from  the  zombies,  and  your  poor  hapless  self)  are  a 
number  of  pot-holes. 

The  original  zombie  could  be  distinguished  by  two  definite 
characteristics,  a  very  keen  in-built  human  tracking  device,  and  a 
hatred  of  humans  which  bordered  on  the  manic.  As  is  well  known, 
clones  are  identical  to  their  ancestor  in  all  things,  so  the  20  little 
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crazies  in  Zombieland  are  all  after  your  blood.  As  well  as  inheriting 
the  clone-ancestor's  skills,  clone-members  also  inherit  weak¬ 
nesses.  The  principal  weakness  of  zombie  number  one  was 
extremely  bad  eyesight  which  could  be  the  key  to  your  survival. 

You'll  recall  I  mentioned  that  there  were  a  number  of  pot-holes 
within  the  section  of  Zombieland  where  you've  found  yourself.  The 
zombies'  human  tracking  devices,  while  remarkably  good  for 
latching  on  to  the  emanation  of  homo  sapiens,  are  worse  than 
useless  when  it  comes  to  picking  up  the  presence  of  pot-holes. 
Lure  a  zombie  into  a  pot-hole  and  he's  a  goner.  Your  key  to  survival 
then  is  to  take  advantage  of  the  creatures'  weak  eyesight  and  lure 
them  into  pot-holes  by  getting  a  pot-hole  between  you  and  the 
zombie.  Remember,  though,  you  have  a  score  of  the  little  horrors 
to  contend  with,  and  while  you're  trying  to  lure  one  into  a  pot-hole, 
another  one  or  more  may  creep  up  on  you. 

You  can  move  up,  down,  right  or  left,  or — if  you're  feeling 
especially  brave — may  stand  still  from  time  to  time.  The  zombies 
can  move  vertically,  horizontally  and  diagonally.  You  start  each 
round  of  CLONE  CRAZY  with  four  lives  and  a  complete  clone 
complement  of  20  zombies.  You'll  be  awarded  a  point  for  each 
zombie  you  lure  into  a  pot-hole  and  six  bonus  points  if  you  manage 
to  rid  the  whole  area  of  them. 

Each  time  you  survive,  the  land  will  be  redrawn,  with  a  new  clone 
colony  and  fewer  pot-holes.  If  you  fall  down  a  pot-hole,  get  eaten 
by  a  zombie  or  go  off  the  edge  of  the  land,  you  lose  a  life.  Four  such 
blunders  and  you  are  fairly  dead. 

The  program  has  a  high  score  feature,  so  you  can  look  forward  to 
spending  the  next  five  years  or  so  trying  to  better  your  score.  You 
move  around  the  screen  using  the  "a"  (up),  "s"  (down),  "k"  (left) 
and  "I"  (right)  keys.  Any  other  key  will  stop  you  moving. 

After  seeding  the  random  number  generator  with  line  one,  an 
array  is  DIMensioned  to  hold  the  clone-members.  The  variable  rand 
is  set  to  0.1  (line  15)  and  then  action  moves  to  the  subroutine 
starting  at  line  9000.  The  graphics  for  the  pot-holes,  zombie  clones 
and  you  are  set  up  and  then,  in  line  9100,  the  BORDER  is  set  at 
blue,  the  PAPER  to  yellow  and  the  I N  K  colour  to  black.  A  'title  page' 
is  shown  for  you,  followed  by  a  reminder  of  which  keys  do  what. 
"Hit  any  key  to  start"  (line  9200)  precedes  a  PAUSE  0  which  holds 
the  program  until  you  touch  a  key. 
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The  RETURN  in  line  9900  sends  attention  back  to  line  20,  where 
your  available  lives  are  set  to  four  (the  variable  name  is  men,  and 
this  is  one  less  than  the  lives  you  have  left,  so  when  men  equals 
zero,  you  still  have  one  life).  The  score  variable  is  set  to  zero  and 
other  variables  which  will  be  needed  soon  are  initialized  (line  30). 

The  address  23560  is  POKEd  with  zero.  This  address  stores  the 
value  of  the  newly-pressed  key  and  POKEing  it  with  zero  has  the 
effect  of  'cleaning  out'  the  key  stroke  held  in  there.  Line  1 00  sends 
the  program  to  the  subroutine  from  1000  which  draws  out 
Zombieland.  The  border  is  drawn  in  line  1010,  and  then  the  double 
loop  (i  and  j)  from  line  1020  places  the  pot-holes  in  place.  The 
number  of  pot-holes  depends  on  the  value  of  the  variable  rand  in 
line  1 040,  and  also  on  the  number  generated  by  RND  in  that  line. 

After  returning  from  this  subroutine,  line  1 1 0  directs  attention  to 
the  subroutine  from  line  3000  which  puts  the  zombies  on  the 
screen,  counting  them  (start  of  line  3050)  and  keeping  track  of 
them  within  the  z  array  (last  two  parts  of  3050).  From  the  3000 
subroutine  we  go,  via  line  1 20,  to  the  2000  subroutine  which  places 
the  man  (that  is,  you)  on  the  land.  The  elaborate  series  of  "IF 
SCREENS  .  .  ."  lines  are  checking  that  the  area  surrounding  the 
starting  position  is  clear.  If  it  was  not,  you  could  be  pounced  on  by  a 
clone-member  or  stumble  into  a  pot-hole  before  the  game  even  got 
underway. 


SCORE: 26  HI : 0  ** 
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If  you  look  at  this  'sample  run  snapshot'  from  a  game,  you'll  see 
that  the  number  of  lives  you  have  left  is  indicated  by  the  little  men 
up  in  the  top  right  hand  corner,  above  the  land.  The  lines  1 30  to  1 50 
put  these  men  in  place,  line  1 60  prints  out  the  score  at  the  top  left 
of  the  screen  and  the  high  score  is  printed  in  the  middle  of  the  top 
of  the  screen  by  line  1 70. 

You'll  recall  that  back  in  line  40,  the  address  23560  was  POKEd 
with  a  zero,  to  'clean  it  out'.  Now,  we  are  expecting  that  you're 
touching  one  of  the  four  action  keys  ("a",  "s",  "k",  or  "I"),  and  if 
you  are,  PEEKing  into  the  address  23560  (as  occurs  in  line  200)  will 
indicate  which  key  is  being  pressed.  Before  the  computer  acts  on 
that  information  with  the  lines  from  210  to  240,  it  sets  two 
variables  (tx  and  ty)  equal  to  your  present  position.  These  variables 
will  be  used  to  'unprint',  if  needed,  in  line  450.  If  you  have  not 
pressed  any  of  the  four  keys,  line  250  jumps  over  the  routine  which 
checks  where  you  are,  and  reprints  you.  Line  260  runs  a  swift 
check  to  ensure  you  have  not  foolishly  stumbled  off  the  edge  of  the 
world,  and  270  looks  to  see  that  where  you  intend  to  move  is  not 
occupied.  If  it  finds  something  there,  you  have  had  it,  and  the 
routine  starting  at  line  4000  puts  on  a  dramatic  son  et  lumiere 
display  to  press  home  your  stupidity.  If  you  pass  the  test  of  line 
270,  you  are  reprinted  by  line  280. 

The  routine  from  lines  300  to  490  is  traversed  until  the  value  of 
the  variable  num  (incremented  in  line  400)  becomes  greater  than 
the  value  of  go  (which  was  originally  set  to  equal  four  in  line  30, 
and  is  altered  in  line  485).  This  whole  routine  contains  the 
malevolent  intelligence  of  the  clone-members.  An  associated 
routine,  lines  500  to  530,  is  entered  via  line  410  if  the  SCREENS 
test  in  that  line  finds  a  blank.  If  the  number  of  zombies  left  (the 
variable  left  holds  this  information)  drops  to  zero  (that  is,  you  have 
destroyed  all  of  the  clones  as  well  as  the  original  one — a  fact  which 
is  ascertained  from  line  470)  you  get  a  bonus  score  (see  lines 
8000  to  8050),  and  the  value  of  variable  rand  is  decreased  (which 
means  that  you'll  get  fewer  pot-holes,  a  process  which  is 
determined  in  line  1040). 

Once  the  zombie  routine  is  finished  line  305  sends  attention 
back  to  line  200  and  the  process  begins  again.  The  loop  from  line 
7000  prints  out  the  zombies,  complete  with  a  little  musical 
accompaniment  (lines  7020  and  7040).  Once  the  number  of  men 
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has  fallen  to  zero  (see  line  7060),  the  computer  uses  the  routine 
from  line  7070  to  alter  the  high  score  if  needed  and  to  offer  the 
option  of  a  new  game.  If  you  enter "  n "  to  indicate  you  do  not  want  a 
new  game,  then  line  7090  sets  the  INK,  BORDER  and  PAPER  to 
start-up  condition  to  make  it  easier  to  list  the  program  or  to  enter 
another  one.  If  you  want  a  new  game  (and  the  "y"  answer  is 
detected,  and  acted  on,  in  line  7080),  the  action  goes  to  line  25 
which  ensures  that  your  high  score  (variable  hi)  is  not  reset  to  zero. 

Modifications  which  you  may  like  to  make  to  the  program 
include  changing  the  keys  which  move  you  around.  To  do  this,  alter 
lines  21 0  to  240  where  the  numeric  value  of  the  last  key  entered  is 
used  (remember  address  23560).  If  you  do  this,  you  will  also  have 
to  alter  the  instructions  in  lines  91 50  to  91 80.  To  generate  more  or 
fewer  pot-holes,  change  the  initial  value  of  the  variable  rand  in  lines 
1 5  and  7063.  To  modify  the  change  in  the  number  of  pot-holes  at 
the  end  of  each  round  of  the  game,  alter  line  8006.  The  user- 
defined  characters  are  "A"  (for  you),  "B"  (for  the  zombie  and  its 
clone)  and  "C"  (for  the  pot-holes). 


1  KSNDOHIZc 
as  DIM  Z (30 , Si 
a  a  LET  hi  =0 
15  LET  rand =0-1 
20  GO  SUB  9000 
25  LET  men =3:  LET  SCOTS =G 
30  LET  left  =0:  LET  »3X=20:  LET 
ZOSbi  S  =0;  LET  g O  =4- 
4-3  POKE  23560..  0 
1S0  GD  SUB  1003 
110  GO  SUB  J000 
120  GO  SUB  2000 

130  IF  men  >3  THEN  PRINT  AT  0,29 

; 

14-0  IF  sen>l  THEN  PRINT  RT  0,30 

; 

150  IF  men >0  THEN  PRINT  RT  0,31 

16©  PR  I  N’T  RT  0,0; "SCORE: "; SCOTS 
17©  PRINT  RT  0, 15; "HI: hi 
203  LET  a=PEEK  23560 
205  LET  t  X  =p  X .  LET  ty  =py 
21©  IF  3=97  THEN  PRINT  RT  py ,PX 
.  LET  py=py-l:  GO  TO  260 
220  IF  a =115  THEN  PRINT  RT  py,R 
X  :  ”  LET  py=py+l:  GO  TO  260 

230  IF  3  =107  THEN  PRINT  RT  py,P 
X.;"  ":  LET  px  =px  —1 :  GO  TO  26© 
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24-0  IF  3=i©8  THEN  PRINT  RT  py,p 
X  ,  "  ”  ;  LET  pxspx+l:  GO  TO  260 

2S0  GO  TO  300 

2S0  IP  py.il  OR  px  >30  OR  py  <2  OR 
py  >20  THEN  GO  TO  4.000 
270  IP  SCREEN*  {py,px><>"  **  THE 

N  GO  TO  500© 

23©  PRINT  RT  py,px;"*" 

300  LET  nUJ»  =B 

305  IP  nu»>gO  THEN  GO  TO  200 
310  LET  ZOSjbiS=ZOMbiS+l:  IP  ZOJS 
bi  e  >  fi;  3  X  THEN  LET  ZORbiS=l 
32©  ip  z czoabie , u =0  then  go  to 
310 

330  LET  ZX  =Z  (Zulllbie  .1)  ;  LET  zy  = 
Z (ZO»bie,a> :  LET  tX=ZX:  LET  ty=Z 

y 

34.0  LET  dx=0:  LET  dy  =0 
350  IP  ZX <px  THEN  LET  rfx =1 
360  IP  ZX  >px  THEN  LET  dx  =  -l 
370  IF  zy<py  THEN  LET  dy  =i 
330  IP  zy>py  THEN  LET  du=-l 
390  LET  ZX  =ZX +dX ;  LET  Zy=Zy+dM 
4-0©  LET  n  u  »  =n  u  ®  + 1 

4-10  IP  SCREEN*!  fzy,zx)  ="  *•  THEN 

GO  TO  500 

4-20  IP  SCREEN*  tZU.ZX)  =”S"  THEN 
GO  TO  305 

4-30  IF  zx  =px  RND  zy=py  THEN  GO 
TO  700B 

4-4-0  LET  Z  iZOBbie,!)  =0 
4-50  PRINT  RT  t«  .  tx;  "  ” 

4-60  LET  SCOTS  =S  C  O  T  S  + 1 ;  PRIMi  R; 
0,0J  ”SCGRE:  SCOTS 

4-  70  LET  left=left-l:  IP  left=0 
THEN  GO  TO  6000 

4-30  FOR  n  =1  TO  10:  BEEP  0.01.0: 
NEXT  n 

4-35  LET  gO=l+INT  f 

4-9©  GO  TO  305 

500  PRINT  RT  t  y  .  tx ; “  ” 

510  PRINT  RT  zyjzx;  FLRSH  1;  IN 

K  2; 

520  LET  Z  (ZOfifcie  .13  =2X:  LET  Z  CZ 
OiSbi  S  ,  23  =zy 
525  BEEP  0.02, 30- IS  ft 
S3©  GO  TO  305 
1000  PRPER  6:  CLS 

1010  PLOT  4.,  4.:  DRRU  24-8 . 0 .  DRRU 
3 , 159;  DRRU  -24-8,0:  DRRU  0,-159 
1020  FOR  i =2  TO  20 
1030  FOR  J=1  TO  30 

104-0  IF  RND  >  rand  THEN  GO  TO  106© 
1050  PRINT  RT  i,j;  INK  1;  "0" 

106©  NEXT  j :  NEXT  i 
1100  RETURN 
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2000  i_ET  px  =2  NT  (  RMD  *13  +5  .1 
2010  LET  py  =  INT  fRND#17+5) 

2020  IP  SCREEN*  (py,PXl  < > "  “  THE 

N  GO  TO  2000 

2021  IF  SCREEN*  rpy -I ,px -IJ  tf> 
THEN  GO  TO  2000 

2022  IF  SCREEN*  (py  ,  px  -1)  <  >  ** 

HEN  GO  TO  2000 

aoas  if  screen*  (py +1 .px -1)  < > 
THEN  GO  TO  2000 
2024-  IF  SCREEN*  Cpy-l,pxJ  <>" 

HEN  GO  TO  2000 

2025  IF  SCREEN*  (py+l,px) <>“ 

HEN  GO  TO  2000 

202S  IF  SCREEN*  (py-l,PX+l) O' 
THEN  GO  TO  2000 
202?  IF  SCREEN*  fpy,px+U<>" 

HEN  GO  TO  2000 

202S  IF  SCREEN*  Cpy +1 , px +1) < > 
THEN  GO  TO  2000 
2030  PRINT  RT  py,px;“*" 

2100  RETURN 

3000  FOR  j=2  TO  20 

3020  LET  i =INT  (RNDS3B+1) 

3- 03-0  IF  SCREEN*-  i  "  "  THEN 

GO  TO  3020 

304-0  PRINT  RT  J  .  i  ;  FLRSH  1}  INK 

2: 

3050  L.ET  leftaleft+1:  i-ET  Z  (left 
,  11  =i  :  i_ET  Z  f  left  .2)  =  j 
3053  NE>rr  j 
3100  RETURN 

4- 000  FOR  i  =1  TO  20 

4-010  PRINT  RT  py,px;”  **:  PRINT  R 
T  ty,  tx; 

4-020  BEEP  .B2fi  _  _ 

4-030  PRINT  RT  PS^PX;  f  :  PRINT  R 
T  ty  ,  tx;  ••  ’• 

4.04.0  BEEP  -  02  ..  20 -  i 
4.050  NEXT  i 
4.05©  GO  TO  7060 
5000  FOR  i =1  TO  20 

5020  PRINT  RT  py,px;"  **  :  PRINT  R 
T  ty,  tx ; 

5030  BEEP  -02,20+i  ^  _  _ 

504.0  PRINT  RT  py,PX;“*":  PRINT  R 
t  ty  ,  tx;  ”  ** 

5050  BEEP  »  02 1 20— i 

5050  NEXT  i 

5070  GO  TO  7050 

7000  FOR  i =1  TO  20 

7010  PRINT  RT  p  y,px;  INK  3;  “S?"  : 

PRINT  RT  ty,tx;"  ** 

7020  BEEP  -02,20+i 
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7030  PRINT  RT  py,px;  “t1*:  PRINT  R 
Tty,  tx; 

704-0  BEEP  .  62,20-i 
70S©  NEXT  i 

706©  LET  aen=sen-l:  IF  men  <0  THE 
N  GO  TO  7070 

7062  FOR  i =  1  TO  100:  NEXT  i 

7063  LET  rand  =0.1 
7066  GO  TO  3© 

7070  IF  SCOre>hi  THEN  LET  hi =S CO 
re;  PRINT  RT  0^15; “HI: “;hi 
7075  PRINT  RT  1,6; "ANOTHER  GRHE 
fV/N)  7  " 

70S©  IF  INKEY$  =  **UM  THEN  GO  TO  25 
70S©  IF  INKEY$stan1(  THEN  BORDER  7 
:  PRPER  7:  INK  0:  STOP 
71©0  GO  TO  7060 

600©  PRINT  RT  0,10;  FLASH’  1;,,**3- 
BONU5  r" 

3005  LET  score COfe  +6 
6©06  LET  rar:d=rar*d*0.6 
5010  FOR  i  =1  TO  3 
302©  FOR  .isi  TO  5© 


303© 

BEEP 

0-©l 

,  J 

304.0 

NEXT 

j 

3050 

NEXT 

i 

306© 

GO  i  £D 

‘  3S 

300© 

POKE 

USR 

%*R*" 

/  BIN  ©S011100 

3001 

POKE 

USR 

"ft" 

+1 #BIN 

©0011100 

9002 

POKE 

USR 

"ft" 

+2 .BIN 

©1111111 

9903 

POKE 

USR 

"ft" 

+3 ‘.BIN 

©0001000 

9004. 

POKE 

USR 

*•  CJ  " 

M,BIN 

00001000 

9005 

POKE 

USR 

'•ft" 

+5, BIN 

©001010O 

9006 

POKE 

USR 

"ft" 

+6, BIN 

00100010 

9007 

POKE 

USR 

"ft" 

+7 .BIN 

©000000© 

9010 

POKE 

USR 

"B" 

. BIN  0O00S000 

9011 

POKE 

USR 

••  B  " 

±1 .BIN 

0 1 1©01 10 

9012 

POKE 

USR 

"Bn 

-S-2.BIN 

01 100110 

9013 

POKE 

USR 

"B" 

+3. BIN 

0000G00G 

9014- 

POKE 

USR 

"B" 

+4.,  BIN 

00011000 

9015 

POKE 

USR 

" B " 

+5, SIN 

01000010 

9016 

POKE 

USR 

"B" 

±& .BIN 

00111100 

9017 

POKE 

USR 

"B" 

+7 .BIN 

00000000 

9020 

POKE 

USR 

"  C  " 

,  0' 

9021 

POKE 

USR 

*«  at 

+1 , BIN 

00111100 

9022 

POKE 

USR 

at  «  *4 

+2, BIN 

0111111© 

9023 

POKE 

USR 

«•  *1 

+3 .BIN 

0110011© 

9024. 

POKE 

USR 

•*  C  “ 

+4-  .BIN 

0113011© 

9025 

POKE 

USR 

••  c  “* 

+5  .  BIN 

01111110 

9026 

POKE 

USR 

"C" 

+6, BIN 

0311110© 

9027 

POKE 

USR 

II  >  II 

+  7  ,  © 

9100 

L^ 

3GRDE 

R  I  : 

PRPER  6: 

INK  0:  C 

911© 

PRINT 

RT 

2/1 

3;  "Clone  Crazy" 
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9120 

PRINT 

RT 

1.,  13;  OUER 

l ; 

3130 

PRINT 

RT 

4-,  4-;  ”  Mi  X 

e  o  '  Ne  i  l 

l  du 

tu  1962" 

314.S 

PRINT 

RT 

0,4-;  "Kegs  : 

* 1 

3150 

PRINT 

RT 

10,4.;  "R=up 

* 1 

31SS 

PRINT 

RT 

11,4.;  ”S=do 

tv  n  ” 

3170 

PRXNT 

RT 

13 , 4. .  MK=lS 

f  t  ” 

9180 

PRINT 

RT 

13 . 4.';  "L  =  ri 

gh  t E 

3130 

PFtThiT 

RT 

15.,  5;  "any 

o  the r  K e 

*-£  to 

Stop  " 

330© 

PRINT 

RT 

13 , 5; "Hi t 

a  n  y  K  e  y 

to  s 

tart” 

331© 

PRU5E 

0 

9900  RETURN 


65 


Board  Games 

PIRANDELLO 

Based  on  the  game  Reversi  which  was  invented  in  the  1 880's,  the 
computer  game  PIRANDELLO  is  often  known  as 'Othello'.  Reversi 
is  played  on  an  eight  by  eight  board,  such  as  a  chess  board.  In 
Reversi,  players  could  place  their  first  two  pieces  on  any  of  the 
central  four  squares  which  were  free.  In  PIRANDELLO,  the 
position  of  the  first  four  squares  is  fixed  and  play  starts  with  these 
already  in  place,  as  you'll  see  when  you  run  it. 

After  this,  moves  follow  one  simple  rule:  each  new  piece  must 
adjoin  an  opponent's  piece  or  pieces,  and  one  of  the  player's  own 
pieces  must  be  at  the  other  end  of  the  line  of  the  opponent's 
pieces.  All  the  opponent's  pieces  then  turn  into  the  player's  pieces. 
The  line  of  pieces  can  be  in  any  direction,  whether  horizontal, 
vertical  or  diagonal.  If  the  player's  piece  completes  a  line  in  more 
than  one  direction,  then  the  pieces  in  each  of  the  lines  change.  The 
aim  of  the  game  is  to  convert  as  many  pieces  as  possible  into  your 
own,  so  that  when  the  board  is  full  or  when  there  are  no  more  legal 
moves,  you  have  the  greater  number  of  pieces  on  the  board.  The 
winner  is  decided  simply  by  counting  the  pieces  on  the  board. 

To  show  how  the  pieces  change  in  PIRANDELLO,  imagine  you 
were  X's,  and  the  computer  was  0's.  There  may  be  a  line  such  as 
X000  and  if  you  placed  your  piece  at  the  end  (so  it  looked  like 
X000X)  the  0's  would  change  (leaving  the  line  as  XXXXX). 

The  game  depends  more  on  knowledge  of  strong  positions  than 
on  attempting  to  convert  as  many  pieces  as  possible  in  each  move. 
The  strongest  positions  are  the  four  corners  for  a  piece  in  either  of 
these,  controls  a  straight  line  across,  down  and  diagonally.  By 
contrast,  the  squares  one  in  from  the  corner  are  probably  the 
weakest.  Other  strong  squares  include  those  surrounding  the  four 
which  are  in  position  automatically  at  the  start  of  the  game. 

The  Spectrum  has  a  very  good  knowledge  of  the  relative  value  of 
the  various  positions  on  the  board.  It  is  not  the  best  strategy 
possible  to  depend  only  on  position.  However,  knowledge  of  prime 
positions  greatly  outweighs  any  other  consideration  and  the 
computer  can  rapidly  choose  the  best  move  possible  from  the  legal 
moves  available.  Therefore,  this  program  relies  only  on  knowledge 
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of  strong  positions  and  thus  makes  a  quick  and  (most  of  the  time) 
intelligent  reply  to  any  move  you  may  make,  thus  providing  a  rapid 
and  challenging  game. 

Line  30  sends  action  to  the  subroutine  from  4000  which  prints  up 
the  name  of  the  program,  then  waits  until  a  key  is  pressed  for  the 
game  itself  to  begin.  The  BORDER  is  set  to  5  in  this  section  (line 
4000),  the  PAPER  to  2  and  the  INK  to  9  (an  INK  colour  of  9 
automatically  selects  the  INK  colour  for  maximum  contrast).  The 
word  PIRANDELLO  is  printed  all  the  way  down  the  screen  in  a 
variety  of  colours,  complete  with  musical  accompaniment. 
"Please  stand  by"  appears,  flashing,  near  the  top  of  the  screen, 
while  arrays  are  DIMensioned  and  variables  are  initialized. 

The  initialization  routine  begins  at  line  5000.  Three  arrays  are 
DIMensioned.  The  A  array  (line  5010)  holds  the  positions  on  that 
board,  arranged  in  order  of  merit.  The  D  array  will  be  used,  while 
the  game  is  under  way,  to  hold  the  locations  of  pieces  which  must 
be  changed  from  one  player's  to  the  other. 

The  loops  from  5030  to  5070  fill  the  A  array  with  character  1 46's 
(that  is,  with  the  CODE  for  a  user-defined  square).  These  will  be 
used  when  the  board  is  printed,  to  indicate  empty  positions.  The 
next  loop  (5080  to  5110)  reads  the  information  from  DATA 
statements  5320  and  5330  into  the  E  array.  If  you  look  at  the  two 
DATA  statements,  you'll  see  that  they  contain  the  numbers  from 
12  to  89  in  an  apparently  random  order.  This  order  is  not,  despite 
appearances,  random.  Rather,  it  represents  the  programmer's  idea 
of  the  relative  value  of  the  positions  on  the  board.  Square  1 9,  for 
example,  is  one  of  the  most  valuable,  so  the  computer  will  always 
check  that  for  a  possible  move  before  going  anywhere  else.  The 
least  valuable  squares  are  those  near  the  end  of  DATA  statement 
5330;  28,  78  and  23. 

The  next  loop  (5120  to  51 50)  fills  the  D  array  with  the  numbers  in 
DATA  line  5340  (1,9,10,11,  -1  ,-9,-1 0,-1 1).  These  represent  the 
'displacements'  from  a  particular  position  on  the  board  and  are 
used  when  the  computer  is  checking  pieces  to  see  if  they  need  to 
be  changed  after  a  move. 

Lines  5160  and  5170  put  the  opening  pieces  in  position.  Then  a 
move  marker,  which  indicates  which  player's  turn  it  is  to  move,  is 
set  to  1 45  in  line  51 80  to  show  the  computer  will  move  first. 

Once  this  has  been  done,  the  Spectrum  gets  to  work  to  define 
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the  graphics.  There  are  three  that  are  used:  a  square  for  an  empty 
position,  a  diamond  (printed  in  red)  for  a  computer  piece,  and  a 
diagonal  line  (printed  in  white)  for  one  of  your  pieces.  The  DATA  for 
the  graphics  is  held  in  lines  5350  to  5370,  with  the  "Z"  at  the  end  of 
line  5370  triggering  the  change  of  BORDER  colour,  the  clearing  of 
the  screen  and  the  move  back  to  line  400  at  the  end  of  line  5270. 

After  the  board  has  been  printed  (lines  400  to  490)  the  move 
marker  is  checked.  If  it  has  the  value  1 45,  the  computer  knows  that 
it  is  time  for  it  to  move.  If  not,  the  computer  changes  Y  to  144  (so  it 
will  know  next  time  Y  is  checked,  that  it  is  now  its  move),  and  line 
530  accepts  the  player's  move  as  two  numbers,  the  one  down  the 
side,  followed  by  that  across  the  top.  The  move  is  entered  as  a 
single,  two  digit  number  (such  as  25,  or  81).  Moves  below  1 1  and 
above  88  will  be  rejected. 

If  you  find  you  are  unable  to  move  you  enter  a  0  to  indicate  this, 
and  the  computer  will  go  to  line  100  to  have  its  move.  (If  the 
computer  is  unable  to  move,  see  line  350,  it  will  check  to  see  [line 
380]  if  you  have  previously  indicated  your  inability  to  move  and  if  it 
finds  you  have,  sends  action  to  the  end  of  game  routine  from  line 
1 000  which  counts  the  pieces,  and  announces  who  has  won.)  Line 
560  makes  sure  the  move  is  within  the  numerical  limits  (1 1  to  88) 
and  that  the  square  into  which  you  intend  to  move  is  blank  (that  is,  it 
contains  a  146). 

Once  the  move  has  been  accepted  as  legal,  the  computer 
moves  to  the  section  of  the  program  beginning  at  line  160  which 
uses  the  displacement  values  held  within  the  E  array  to  check  all 
pieces  for  changes  (that  is,  for  swapping  into  the  opponent's 
pieces).  At  the  end  of  this  routine,  which  runs  from  lines  160  to 
320,  the  move  marker  is  checked  again.  If  it  is  found  to  equal  144, 
or  the  print  board  flag  (J,  initialized  in  line  160  and  changed  when 
needed  in  line  290)  equals  one,  then  the  computer  goes  to  line 
400  where  the  board  is  printed  again.  If  all  squares  have  not  been 
checked  (that  is,  K  in  line  340  does  not  equal  60)  then  the  computer 
goes  to  line  130  to  continue  its  search.  This  line,  of  course,  will 
never  be  reached  when  the  player  has  just  moved.  If  line  350  is 
reached,  the  "I  pass"  message  is  displayed. 

Line  500  checks  the  value  of  Y,  and  if  it  is  found  to  be  144,  knows 
it  is  the  computer's  turn  to  move.  Therefore,  the  computer  goes 
back  to  line  100  where  it  looks  for  a  move  (lines  1 00  to  1 50,  plus 
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340).  Note  that  here  the  computer  is  using  the  information 
gathered  from  the  DATA  statements  to  determine  the  order  in 
which  the  squares  should  be  checked. 

You'll  find  PIRANDELLO  a  challenging  game  and  the  Spectrum  a 
worthwhile  opponent.  Once  you've  got  the  game  under  control, 
you  can  change  the  user-defined  graphics  and/or  you  can 
experiment  with  the  order  of  the  numbers  within  the  DATA 
statements  to  see  if  you  can  improve  the  computer's  strategy. 


ia  ren  Pi  rands  i 

30  GO  TO 
100  LET  Y  =  l*5 
110  LET  Z  =14-4- 
120  LET  K  =0 
130  LET  K=Kfi 
14-0  LET  B-EiiKy 
IS 0  IF  R  CB>  <  >  I*S 
168  LET  U  =0 
178  FOR  X  =  1  TO  3 
ISO  LET  N  =£>  \:<y 
190  LET  E=© 

20©  LET  F  =B 
210  XF  RCF-^M)  OY 
220  LET  E  =  1 
23©  LET  F=F*N 
2<L©  GO  TO  2X3 
2S0  XF  R  CF+N>  <  >2T 
268  XF  E=0  THEN  \ 

270  FOR  R=B  TO  F 
288  LET  Rift) =2 
290  LET  0=1 
300  NEXT  R 
310  NEXT  X 
320  XF  Y  =  14-4-  THE:N  GO  TO  403 
330  JF  0=1  THEN  GO  TO  *0-0 
3*0  XF  K  <  >  68  THEN  GO  TO  130 
350  XF  GO©  THEN  PRINT  RT  0^0; 
flash  i;  INK  2;  PAPER  7; "X  pass. 
. M:  BEEP  1^1:  BEEP  1,2:  BEEP  1,1 
:  PRINT  RT  0,0;" 


l  u 

THEM  50  TO  3*0 

THEM  GO  TO  250 

THEM  GO  TO  310 
30  TO  31© 

STEP  N 
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38©  IF  G=0  THEN  GO  TO  100© 

4-0©  PRINT  RT  6,11 ;  BRIGHT  Ij  "12 
345678" 

410  Bt:EP  8  *  Sb  ,  32  :  BEcP  8  »  85 , 12  ; 

BEEP  0.05/32 

428  FOR  R  =  1  TO  S 

438  PRINT  TRB  1©;  SRIGnT  1;  INK 
S;R; 

4-4-0  FOR  B=2  TO  3 

4-4-5  DET  U=RCflsl0+B)  :  BEEP  8.888 
..  C U  =  14-4- j  +50*  tU  =  14-5Ji  —50*  CU  =  14-B1 
4-5©  LET  R=2*  CU=14-43  +7*  CU=14-5)  +* 
*  (U  =  14-53 

4-55  PRINT  BRIGHT  1;  INK  R;CHR$ 

(U)  ; 

4-60  NEXT  B 

4-7©  PRINT  BRIGHT  1;  INK  S;  R 
488  NEXT  R 

4-90  PRINT  TRB  11;  INK  6;  BRIGHT 
l;  ”  1234-5676" 

50©  IF  Y=14-4-  THEN  GO  TO  100 
51©  BET  Y=14-l 
52©  LET  Z  =  14-5 

530  INPUT  INK  2;  PAPER  6;  FLASH 
l;  BRIGHT  1; "  Please  enter  you 
r  move  ••  ;  G 

54-0  IF  G~®  THEN  GO  TO  188 
55©  LET  B-G+l 

560  IF  B<1H  OR  B  >39  OR  Af8)  014 
6  THEN  GO  TO  S3© 

530  GG  TO  160 
1300  LET  C=0 
101©  LET  H-B 
1020  FDR  R=1  TO  100 

1©3©  IF  fl ip} =144  THEN  LET  C=C+ 1 
104-©  IF  A  (A  *  =145  THEM  LET  H=H  +  1 
1050  Nl XT  A 

1055  PRINT  AT  18,8,  FLASH  1;  BRI 
GHT  1;  INK  2;  PAPER  7;”  Final  S 
cores  :  se "Spe c t  rum  >  c ,  .  "Human  > 

'*  '  H 

1360  XF  C>H  THEN  PRINT  RT  0..  0;  B 
RIGHT  1;  FLRSH  1;  INK  4-;**X  win.. 

. thanks  for  a  good  asms":  GO  TO 
106© 

1070  IF  OH  THEN  PRINT  RT  0,0;  B 
RIGHT  l;  FLRSH  1;  INK  4-; "YOU  Win 

.  .  thanr.s  for  a  good  gaae":  GG  TO 
1070 

1080  XF  C=H  THEN  PRINT  RT  0,0;  B 
RIGHT  l;  FLRSH  1;  INK  4.;  "Its  a  d 

ratiy  t'nsnks  for  the  game”:  GO  TO 
1080 

1090  STOP 

4.000  BORDER  5:  PRPER  S:  INK  9:  C 

LS 
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4-010  FOR  R  =  i  TO  22:  PRINT  TfiB  ft; 

INK  R.  5+3;  “Pi  rande  Uo“ 

4020  BEEP  0.808, ft:  BEEP  0* 008, ft * 
2 :  NEXT  ft 

4-030  PRINT  ftT  5,5;  FLftSH  I;  XNK 
*7 ;  PftPER  8;  “  Please  stand  by  " 
5000  PftPER  0:  INK  0 
58X0  DIM  ft  C 1003  :  DIM  E  fBB) 

5020  DIM  DCS) 

5830  FOR  ft=i  TO  8 

504-8  FOR  B=2  TO  9 

505©  LET  ft  (R*10+B}  =14-6 

506©  NEXT  B 
5078  NEXT  ft 
5880  FOR  R=1  TO  6© 

500©  READ  B 
5X00  LET  E(ft) 

5XX0  NEXT  ft 
5X2©  FOR  ft=i  TO  8 
5X3©  READ  B 
5140  LET  D Cft> =B 

5X50  NEXT  ft 

5160  LET  ft  (4-5)  =14-4- :  LET  ft  C4-6>  =  14- 
5 

5170  LET  ft  (55)  =14-4-:  LET  ft  C55>  =14. 
5 

5X80  LET  Y  =  X4-4- 

527©  READ  fi$:  IF  ft $  =  **2'*  THEN  BOR 

DER  0:  CL 5  :  GO  TO  4-80 

5280  FOR  C=0  TO  7 

5290  READ  B:  POKE  USR  ft$+C,B 

5300  NEXT  C 

5310  GO  TO  5270 

5320  D ftT ft  12,31,82,12,62,17,32^8 
7 , 69 , 14-  ,  39 , 84-  ,  64-  ,  67 , 37 , 3 4-,  4-9  ,  IS, 
59 , 85,  16,52,4-2,86, 65,  54-  ,55,  35 

,57,35,4-7 

533©  D ftT ft  63 , 4-8  ,  S3 , 76 , 24- ,  27 , 38,2 
5, 74-,  77, 4-3, 25, 53, 33,  S3, 75 ^72, 13, 
29,18.38,22, 83 , 79, 73, 28, 76, 23 
5340  DftTft  1,9, 10, 11, -I, -9, -10, -1 
1 

535©  DftTft  s'ft'*  .©  .24-,  68, 126,  126,60 
,  2*  ,  0 

5360  DftTft  "B" ,0,4-,  14- ,  28, 56, 112,3 
2,0 

5370  DfiTfi  "C**, 255,129,129,129,12 
9 . 129 , 129 , 2S5  ,  ”2'* 


CHECKERS 

Challenge  your  Spectrum  now  to  CHECKERS,  one  of  the  world's 
most  popular  board  games  and  second  only  to  Chess.  Some 
games  historians  believe  that  CHECKERS  (or  'Draughts')  was  in 
fact  a  forerunner  of  chess.  Certainly,  checker-like  games  were 
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played  in  ancient  Egypt,  Greece  and  Rome.  The  game  evolved 
through  the  centuries  and  reached  its  present  form  in  the  mid¬ 
seventeenth  century. 

Many  regional  variations  exist  but  the  game  played  by  your 
computer  in  this  case  is  very  much  the  standard  game,  rather  than 
an  exotic  variation.  In  the  standard  game  CHECKERS  is  played 
between  two  opponents  on  alternate  squares  of  the  chess  board, 
generally  on  the  black  squares.  To  make  it  easier  to  see  on  the 
screen  (and  on  screen  dumps  if  you  want  to  use  the  provision 
within  the  program  to  COPY  the  contents  of  the  screen  from  time 
to  time)  we  will  play  in  this  program  on  the  white  squares. 

Each  side  starts  with  1 2  pieces.  In  this  version,  you  are  the  small 
x's,  the  computer  is  the  small  o's  (but  there  is  no  reason  why  you 
should  not  modify  the  program,  once  you  get  it  running,  to  use 
graphics  which  you  have  defined)  and  the  computer  starts  at  the 
top  of  the  screen  playing  down,  while  you  start  at  the  bottom. 

You  can  only  move  diagonally,  that  is,  onto  white  squares.  If 
there  is  an  enemy  piece  on  the  diagonal  immediately  in  front  of  you 
and  a  vacant  square  lies  behind  this  one  on  the  diagonal,  you  can 
capture  the  piece  by  jumping  over  the  enemy  piece  (removing  it 
from  the  board)  in  order  to  land  in  the  vacant  square  beyond.  More 
than  one  piece  may  be  captured  at  a  time  if — when  landing  on  a 
vacant  square  after  a  capture — a  further  capture  is  possible  from 
that  point. 

Some  rules  of  CHECKERS  include  a  provision  with  the 
mysterious  name  of  'huffing'  which  states  that  if  a  capture  is 
possible,  it  must  be  made.  There  is  no  huffing,  as  such,  in  this 
game,  but  the  computer  will  always  capture  when  it  can,  so  you 
should  play  fair  and  make  a  capture  if  one  can  be  made. 

The  point  of  the  game  is  to  wipe  out  all  the  opponent's  pieces,  or 
make  it  impossible  for  him  or  her  to  move.  In  this  program  the 
Spectrum  will  tend  to  play  to  the  death,  but  has  the  ability  to  judge 
when  it  has  been  beaten,  at  which  point  it  will  concede  the  game. 
You  can  give  up  at  any  point,  by  entering  99  when  you  are  asked  for 
your  move.  Do  this,  and  the  Spectrum  will  graciously  accept  your 
wish  to  concede. 

Once  you  get  a  piece  right  across  the  board  to  the  back  row,  the 
piece  is  'crowned'  and  becomes  a  'king'.  This  is  shown  in  this 
program  by  the  pieces  changing  into  new  characters.  You  can 
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easily  alter  these  to  the  characters  of  your  choice,  as  will  be 
explained  shortly.  A  king  has  double  the  mobility  of  an  ordinary 
piece.  That  is,  it  can  move  backwards  as  well  as  forwards,  so  it 
becomes  quite  a  formidable  piece.  Note  that  if  you  land  on  the  back 
row  after  a  capture,  you  cannot  at  that  moment  convert  your  piece 
into  a  king  and  continue  a  sequence  of  captures  'backwards'.  Your 
piece  cannot  work  as  a  king  until  the  following  move.  The 
computer  knows  this  and  acknowledges  it  by  waiting  a  move 
before  it  changes  its  own  piece  into  a  king. 

You'll  find  the  computer  plays  this  game  fairly  quickly  and  with  a 
degree  of  intelligence  and  foresight  which  means  it  will  give  you  a 
fair  run  for  your  money.  To  add  interest,  the  computer  prints  up  on 
the  screen  each  move  as  it  considers  it,  sounding  a  'beep'  if  it 
comes  across  a  move  it  considers  worthwhile.  The  computer 
searches  through  the  board,  square  by  square,  from  the  top  left 
hand  corner  along  the  top,  then  along  the  next  row  from  left  to  right 
and  so  on  to  the  end.  When  it  finds  a  piece  of  its  own,  it  checks  first 
to  see  if  a  capture  can  be  made.  If  it  finds  a  capture,  it  makes  it 
without  further  ado,  reprints  the  board,  and  allows  you  to  enter 
your  reply.  While  it  is  searching  for  moves,  it  is  also  looking  for  'safe 
moves',  using  a  simple  search  technique  to  find  potential  moves 
which  will  not  expose  it  to  danger.  It  also  has  some  facility  for 
selecting  moves  which  protect  pieces  which  are  already  in  danger. 

After  having  gone  through  the  board  and  stored  each  of  these 
safe  moves  in  an  array,  it  checks  to  see  if — by  a  single  move — it 
can  promote  one  of  its  pieces  to  a  king.  If  such  a  move  is  possible, 
because  the  computergives  this  a  higher  priority  than  just  making  a 
safe  move,  the  'make  a  king'  move  is  made.  If  a  piece  cannot  be 
moved  on  to  the  back  row  for  promotion,  the  computer  chooses  at 
random  from  the  safe  moves  it  has  stored  in  an  array.  By  choosing 
at  random  from  moves  which  it  judges  of  equal  worth,  the 
computer  can  play  a  series  of  games  without  repeating  itself,  even 
if  you  try  to  force  it  into  a  game  identical  to  one  which  it  has  already 
played. 

If  its  search  of  the  board  has  revealed  that  no  safe  move  exists,  it 
chooses  a  piece  at  random  and  moves  that.  Such  moves  will  occur 
only  rarely  in  the  early  and  middle  stages  of  a  game.  If  it  has  only  a 
few  pieces  left  on  the  board,  it  may  consider  its  position  is 
hopeless  and  concede  you  the  victory. 
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As  I  said,  this  program  plays  swiftly  because  for  most  moves  it 
only  has  to  partially  search  through  the  board,  or — at  worst — 
search  through  the  entire  board  only  once.  The  speed  of  response 
is  delayed  by  the  lines  which  print  out  the  moves  which  the 
computer  is  considering.  However,  these  add  so  much  interest  to 
the  game,  I  consider  they  are  worth  retaining  although  they  slow  it 
down  somewhat.  If  you  prefer  a  program  which  plays  at  maximum 
speed  (and  this  is  very  fast  indeed)  you  can  delete  certain  lines, 
which  I'll  indicate  to  you  as  I  go  through  the  program.  There  are  also 
a  few  'comment'  lines,  such  as  "Good  mover",  or  "Got  you!" 
which  come  up  from  time  to  time.  These  slow  things  down  slightly, 
and  may  well  be  deleted.  You  may  find,  as  have  several  people  who 
have  used  this  program,  that  they  like  both  versions  and  after 
entering  and  saving  the  complete  program,  delete  the  extra 
printout  lines  to  have  a  second  version  which  works  at  maximum 
speed.  Then  they  can  choose  which  version  they  wish  to  play. 

After  the  random  number  generator  is  seeded  in  line  50,  action 
goes  to  the  subroutine  starting  at  line  1 070  where  the  variables  are 
initialized.  If  you  turn  to  this  section,  you'll  see  that  it  begins  by 
setting  the  PAPER  and  BORDER  to  blue  and  the  INK  to  yellow, 
before  the  screen  is  cleared  to  turn  on  the  PAPER  colour.  In  this,  as 
in  all  other  programs  in  this  book,  feel  free  to  change  the  colours  to 
suit  your  own  taste  or  to  the  particular  combinations  best  suited  to 
your  television.  The  words  "Stand  by"  appear  near  the  top  of  the 
screen  during  the  fairly  short  initialization  process.  (You  may 
consider  including  such  a  line  in  any  program  if  there  is  a  longer 
than  usual  initialization  process,  to  reassure  the  user  that  some¬ 
thing  is  actually  happening  after  RUN  and  ENTER  are  pressed.) 

Line  1080  assigns  values  to  the  pieces.  The  names  of  the 
variables  are  straightforward  (C  for  computer  piece;  H  for  human; 
CK  for  computer  king;  HK  for  human  king;  E  for  an  empty  square; 
and  B  for  a  black  square).  They  are  assigned  in  this  line  and  then  the 
whole  program  refers  to  the  variable  by  name.  This  was  done  so 
you  could,  at  will,  change  the  characters  used  to  represent  the 
pieces  simply  by  changing  this  line.  If  you  wished,  for  example,  to 
add  user-defined  graphics,  all  you'd  need  to  do  would  be  to  use  1 44 
for  H  (144  is  the  CODE  of  user-defined  graphic  one,  available  in  the 
graphic  mode  on  the  A  key),  1 45  for  C,  and  so  on. 

Line  1090  sets  the  variable  OF  to  represent  'off  the  board'.  The 
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computer  has,  'in  its  head',  an  invisible  row  of  dummy  squares 
around  the  board  so  that  it  knows  where  the  edge  of  the  board  is 
and  does  not  attempt  to  boldly  capture  where  no  piece  has  been 
before. 

Once  OF  has  been  defined,  the  Q  array  (which  holds  the  pieces) 
is  DIMensioned  and  each  element  of  the  array  is  filled  with  the 
dummy  value.  The  next  loop  (1 1 1 0  to  1 1 30)  uses  the  DATA  in  lines 
1 140  to  1230  to  fill  the  squares  on  the  board  with  their  required 
values.  All  elements  of  the  Q  array  not  assigned  in  this  loop  will 
have,  of  course,  a  value  of  -99,  so  the  computer  knows  they  are 
areas  into  which  it  must  not  stray. 

Line  1 240  is  a  loop  which  fills  the  N  array  (DIMensioned  back  in 
1 090)  with  numbers  which  represent  the  possible  moves  from  any 
square  fora  non-capture  move.  The  computer  knows  that  doubling 
these  numbers,  when  needed,  will  give  it  a  possible  capture  move. 
In  line  1 260  the  variables  which  count  the  number  of  pieces  of  the 
opposing  player  that  have  been  captured  are  initialized  at  zero,  CO 
for  the  computer,  HU  for  the  human. 

On  returning  from  1 260  to  90  we  see,  in  the  REM  statement,  the 
words  "Delete  next  line  to  stop  Spectrum  having  first  move".  If 
you  wish  to  have  the  opening  move,  simply  get  rid  of  line  1 00.  You 
do  not  need  to  change  any  other  part  of  the  program.  The  Spectrum 
is  not  the  strongest  Checkers  player  in  the  world,  so  giving  it  the 
advantage  of  the  opening  move  is  the  least  you  can  do.  The 
program  is  called  within  the  loop  of  subroutines  from  1 10  to  140, 
with  line  1 50  starting  the  cycle  again.  The  various  subroutines  carry 
out  the  vital  parts  of  the  program,  in  turn,  as  follows: 

680  prints  out  the  board 

850  accepts  the  player  move 

680  reprints  the  board  after  the  player  move 

1 60  starts  the  computer  move  search 

We'll  start  by  looking  at  the  computer  search  process  because  it 
is  the  most  interesting  and  important  section  of  the  program.  Line 
160  DIMensions  the  S  array,  which  will  be  used  to  store  the  safe 
moves  discovered  by  the  computer  while  it  is  looking  for  captures. 
SC,  the  'safe  move  counter',  is  set  to  zero  in  line  170,  where  A 
(which  is  used  to  indicate  the  square  being  considered)  is  set  to  89, 
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one  more  than  the  element  88,  which  holds  the  top  left  hand  corner 
square  of  the  board.  Line  1 80  decrements  A  by  one,  to  indicate  the 
top  left  hand  square,  and  line  190  checks  to  see  if  this  square 
contains  either  a  computer  ordinary  piece  (that  is,  it  checks  to  see  if 
that  element  of  the  array  contains  the  value  C)  or  a  computer  king 
(value  CK).  Line  200  sets  B  (which  indicates  which  potential  move 
from  that  spot  is  being  considered),  to  zero.  If  A  is  less  than  29,  the 
computer  knows  it  is  on  the  human's  back  row  and  can  only  move 
upward  (values  of  3  and  4  for  B  indicate  upward  moves),  so  does 
not  bother  considering  the  moves  when  B  is  1  and  2. 

Line  21 0  adds  one  to  B  (which  then  becomes  1 ,  or  3  if  a  piece  on 
the  back  row  is  being  considered)  and  220  sets  M  (which 
throughout  the  procedure  defines  the  square  the  computer  is 
considering  moving  to,  while  A  is  the  square  the  computer  is 
considering  moving  from)  to  A  plus  the  element  of  N  array 
indicated  by  the  value  of  B.  If  M  is  greater  than  88  or  less  than  1 1 
then  the  computer  knows  the  piece  is  off  the  board  and  need  not 
be  further  considered.  Line  240  is  one  of  those  which  can  be 
deleted  if  you  want  to  go  for  maximum  speed.  It  prints  up  the  move 
which  is  being  considered. 

Our  next  line  finds  a  capture.  If  the  square  it  is  considering 
moving  to  (M)  contains  a  human  (H)  or  a  human  king  (HK)  and  the 
square  beyond  is  empty  (E)  then  the  computer  knows  it  can 
capture,  and  therefore  directs  action  to  line  320  where  the  jubilant 
message  "Got  you  .  .  ."  is  flashed  on  the  screen.  Again,  if  you're 
going  for  maximum  speed,  delete  lines  330, 340  and  350,  as  these 
are  only  used  for  showing  off. 

Back  in  the  main  body  of  the  computer  move  section  of  our 
program,  the  next  line  (260)  conducts  the  simple  search  I 
mentioned,  looking  beyond  the  square  into  which  it  intends  to 
move  to  see  whether,  by  so  doing,  it  would  be  inviting  the  capture 
of  the  piece  it  is  moving,  or  would — by  moving  that  piece — expose 
another  piece  to  danger.  If  a  piece  passes  the  long  series  of  IF 
statement  tests  in  this  line,  then  the  Spectrum  goes  to  the 
subroutine  starting  from  line  470.  The  computer  can  store  up  to  ten 
safe  moves  (as  the  array  which  holds  them  contains  just  ten 
elements  and  ten  has  been  found  to  be  more  than  adequate  in 
most  circumstances).  The  safe  move  counter,  SC,  which  has  been 
set  to  equal  zero  back  in  line  1 70,  is  incremented  by  one  if  it  is  less 
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than  ten.  Line  480,  another  one  you  can  delete  for  maximum 
speed,  prints  up  "Safe  move  . . .  to  .  .  "  and  sounds  a  BEEP  to 
highlight  the  safe  move. 

Line  490  is  rather  interesting.  It  converts  both  the  'from'  (A)  and 
'to'  (M)  squares  into  a  single,  unique  number  (which  is  placed  in  the 
next  available  element  of  the  S  array)  so  that  later,  if  needed,  it  can 
be  decoded.  Line  490  returns  to  the  main  search  section  of  the 
program,  but  while  we  are  at  this  point,  we'll  have  a  look  at  how  the 
safe  move  is  made.  If  no  capture  has  been  made,  the  computer 
moves  to  line  500.  If  it  finds  SC  equals  zero,  then  it  knows  no  safe 
moves  have  been  found  and  goes  to  line  550  to  select  a  move  at 
random.  If  SC  is  greater  than  zero,  the  program  'falls  through' to  the 
next  line  and  one  of  the  encoded  numbers  is  selected  from  the  S 
array,  as  XC  in  line  51 0.  The  'from'  square  (A)  is  recaptured  from  XC 
in  line  520,  and  the  'to'  square  (M)  in  line  530.  Line  540  sends  the 
program  to  650,  where  the  move  is  to  be  made. 

Returning  to  the  first  section  of  the  program,  we  come  to  line 
270.  Here  B  is  incremented.  Elements  one  and  two  of  the  N  array 
contain  moves  which  can  be  made  by  any  piece  (except  one  on  the 
bottom  row)  and  elements  three  and  four  contain  king-only  moves. 
If  B,  the  counter  which  selects  the  elements  of  the  N  array  which 
will  be  used  for  the  move,  is  found  to  be  lower  than  its  maximum 
(two  for  an  ordinary  piece,  four  for  a  computer  king)  then  the 
program  returns  to  line  210  where  the  counter,  B,  is  incremented, 
and  the  search  continues.  Line  280  checks  to  see  if  every  square 
on  the  board  has  been  checked  and,  if  not,  returns  to  line  180 
where  the  square  counter.  A,  is  decremented  by  one,  and  the 
search  continues.  If,  however,  all  the  moves  have  been  used  up 
(that  is,  A  is  found  to  be  not  greater  than  eleven  when  tested  in  280) 
the  program  continues  to  the  next  two  lines,  which  check  for  a 
potential  king.  A  flag,  FL,  is  set  equal  to  zero  and  the  computer 
checks  the  elements  of  the  array  which  represent  the  squares  on 
the  row  before  the  one  on  which  computer  kings  are  made.  If  it 
finds  a  piece  of  its  own  there,  it  sends  the  program  to  the 
subroutine  from  line  1270.  If  this  subroutine  finds  a  move  which 
will  make  a  king,  then  (in  the  subroutine),  the  FL  is  set  to  one  and 
this  sends  the  program  to  line  650,  to  make  the  actual  move. 

If  such  a  move  is  not  possible,  line  310  jumps  over  the  section 
which  makes  the  capture  move  (which  we'll  be  returning  to 
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shortly)  and  goes  to  line  500.  Now,  keep  in  mind  that  the  computer 
follows  a  strict  hierarchy  of  checks: 

•  can  I  capture,  and  if  so,  can  I  capture  again? 

•  can  I  make  a  king? 

•  can  I  make  a  move  which  does  not  place  the  moved  piece 
in  danger  or  expose  another  piece  to  danger? 

•  can  I  make  a  legal  move? 

If  the  answer  to  any  of  these  questions  is  'yes',  then  the  move  is 
made  and  the  board  reprinted  in  readiness  for  the  human  move.  If 
the  answer  to  the  first  question  is  'no',  then  the  second  question  is 
asked  .  .  .  and  so  on.  If  the  answer  to  the  final  question  is  'no',  then 
the  computer  concedes  the  game.  (There  is  one  other  question, 
asked  every  time  the  board  is  reprinted,  which  relates  to  how  many 
pieces  the  two  players  have  captured.  If  it  finds  that  either  player 
has  taken  1 2  of  the  opponent's  pieces,  the  game  goes  to  a  routine 
acknowledging  the  win  and  terminates  the  game.  This  question, 
which  does  not  really  fit  into  our  hierarchy  of  moves,  is  mentioned 
here  for  completeness,  so  you  can  more  easily  understand  the  way 
the  computer  arrives  at  a  move.)  This  kind  of  ordering  of  move 
checks  is  how  most  intelligent  game-playing  programs  work,  from 
arcade-type  moving  graphics  games  to  chess. 

If  the  computer  has  reached  line  500,  then  the  answer  to  the  first 
two  questions  has  been  'no'.  To  ask  the  third  question  ('can  I  make 
a  safe  move?')  the  computer  simply  has  to  refer  to  the  value  of  SC 
(the  safe  move  counter).  If  it  is  zero,  it  has  not  found  any  moves 
worth  labelling  as  safe,  so  the  answer  to  the  question  is  'no'.  We 
have  already  examined  the  safe  move  system,  so  we'll  now  look  at 
the  part  of  the  program  which  the  computer  accesses  as  its  'court 
of  last  resort' — the  check  for  a  move  chosen  at  random,  which 
begins  at  line  550. 

Here  the  variable  SC  is  used  again,  to  save  having  to  initialize 
another  variable.  It  will,  after  all,  be  reset  to  zero  (by  line  170)  before 
the  next  move  and  can  safely  be  used  for  another  purpose  at  this 
point.  Line  550  adds  one  to  the  value  of  SC  and  chooses  a  square  at 
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random  between  one  and  88.  If  this  square  does  not  contain  either 
a  computer  piece  or  a  computer  king  (line  560)  then  action  goes  to 
line  630  where,  if  less  than  300  numbers  have  been  chosen  in  this 
section,  action  is  directed  back  to  line  550  to  try  again. 

However,  if  the  chosen  square  does  hold  either  a  C  or  a  CK,  then 
the  routine  from  lines  570  to  620  looks  to  see  if  this  piece  can 
move.  If  a  move  is  found,  line  61 0  sends  the  program  to  650  where 
the  actual  move  will  be  made.  If  no  move  has  been  found,  and  300 
numbers  have  been  chosen  at  random,  the  computer  will  concede 
the  game  with  line  640. 

Before  we  have  a  look  at  the  section  which  allows  the  human  to 
make  a  move,  let's  move  back  up  the  program  slightly  to  the 
section  beginning  at  line  370.  This  line  is  accessed  after  a  capture 
has  been  made.  The  previous  line  has  incremented  the  computer's 
score  (CO)  by  one  before  line  370  calls  the  board  print  subroutine 
which  shows  the  moved  piece,  the  new  Spectrum  score  and — of 
course — a  blank  square  where  the  computer  piece  used  to  be. 
You'll  recall  that  A  was  the  square  the  computer  moved  from,  and 
M  the  square  it  was  moving  to.  A  is  now  reset  to  equal  the  square 
the  computer  has  moved  to,  and  the  lines  from  390  to  460  check  to 
see  if  a  further  jump  or  jumps  can  be  made,  and  if  so,  it  makes 
them,  checking  after  each  move  (and  after  the  board  has  been 
reprinted)  to  see  if  a  further  capture  can  be  made.  When  the 
sequence  of  captures  is  over,  the  computer  will  hand  over  the 
program  to  the  human  to  make  his  or  her  move. 

The  human  move  section  is  simple.  You  move  by  specifying  the 
square  from  which  you  want  to  move  by  indicating  the  number  of 
the  square  down  the  side  and  then  the  number  across  the  top, 
entering  both  digits  at  once  (such  as  "31  ”).  Then,  after  pressing 
ENTER,  you  enter  the  two  digits  referring  to  the  square  to  which 
you  want  to  move.  The  move  will  then  be  made,  the  board 
reprinted  and  if  you  are  captured,  you'll  be  asked  if  you  can  jump 
again.  If  you  say  no.  the  computer  will  think  of  a  move.  Say  yes,  and 
you'll  be  asked  for  a  new  'to'  square  (because,  of  course,  the 
computer  already  knows  your  'from'  square,  as  you  just  moved 
there). 

The  section  which  accepts  the  human  move  starts  at  line  81 0 
where  REM  statements  point  out  that  you  enter  99  if  you  wish  to 
terminate  the  game.  Entering  a  "1 "  will  tell  the  computer  to  copy 
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the  screen  to  the  printer.  After  this  copy,  you'll  be  asked  again  to 
enter  your  move.  After  the  move  has  been  made  within  the  array 
which  holds  the  pieces  (in  line  91 0)  two  loops  (920  to  950)  check  to 
see  if  either  player's  pieces  have  reached  king  status  and,  if  they 
have,  changes  their  symbols  accordingly.  You  may  recall  that  I 
mentioned  earlier  that  a  piece  cannot  move  as  a  king  until  the  move 
after  the  one  in  which  it  became  a  king.  The  computer  pieces  are 
promoted  here  because  this  (being  the  middle  of  the  human  move 
section)  is  safely  away  from  the  computer  move  generation 
section,  and  so  there  is  no  chance  the  computer  will  try  to  cheat  by 
moving  a  newly-created  king.  We  assume,  by  the  way,  that 
although  a  human  piece  is  crowned  king  immediately,  that  the 
human  will  not  cheat  and  try  to  move  it.  There's  nothing  in  the 
program  to  stop  you  cheating  but  it  rather  destroys  the  point  of  it  all 
if  you  do,  because  the  Spectrum  would  never  dream  of  stooping  to 
cheat. 

Now  at  line  960,  the  computer  checks  the  difference  of  the 
human's  'from'  and  'to'  squares.  If  this  difference  is  less  than  12, 
then  the  human  has  not  made  a  capturing  jump,  so  the  computer 
returns  to  the  main  loop  at  the  beginning  of  the  program  to  reprint 
the  board  prior  to  the  computer  selecting  its  next  move.  However, 
if  this  difference  is  not  less  than  1 2,  then  a  capture  has  been  made, 
and  the  computer  wi  II — two  times  out  of  three — acknowledge  this 
capture  with  a  comment  generated  by  the  lines  970  to  990. 
Comment  or  no,  a  capture  will  be  signalled  by  a  rising  tone 
produced  by  line  995,  the  human  score  (HU)  will  be  incremented  by 
line  1000,  the  captured  square  will  be  'emptied'  (by  the  second 
statement  in  line  1 000)  and  the  board  reprinted  before  (in  line  1 030) 
the  human  is  given  the  chance  to  jump  again.  If  not,  line  1040 
returns  to  the  main  loop,  avoiding  line  1 060  which  sets  the  old  'to' 
square  as  the  new  'from'  square,  and  sends  the  program  to  line 
860  to  accept  the  new  'to'  destination. 

We  have  already  looked  at  the  rest  of  the  program,  which 
controls  initialization  and  the  'can  I  make  a  king?'  routine.  The  only 
part  of  the  program  we  have  not  looked  at  and  which  is  self- 
explanatory,  is  that  section  from  680  to  780  which  prints  out  the 
board  after  each  move.  Note  line  770  which  side-steps  the  return 
to  the  main  program  loop  if  either  the  human  (HU)  or  the  computer 
(CO)  counters  equal  12. 
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S30  IF  M  >88  OR  M<11  THEN  GO  TO 
£80 

248  IF  Il^INT  OH  THEN  PR 

i NT  RT  0,0;R;  ••  to  Mj  "v" 

250  XF  (©(m=H  OR  ©  CiiJ  =HK3  RND 
©CM+N*5>}=E  THEN  GO  TO  320 
260  IF  Q(H)=E  THEN  XF  C© (H-113  < 
>H  RND  O(M-il)oHK)  THEN  XF  C©(M 
-9)  OH  RND  eCH-9)  OHK)  RND  ©  CH+2 
3  <>HK  THEN  XF  (  (0(Hf22)  <  >HK  OR  © 
(M*i8)OHK)  RND  (9IM+9)  OC  OR  ©C 
M+9) <>CK  OR  9(M+11)=C  OR  O(Mfll) 
=  CK:«)  RND  QCM  +  113  oHK  THEN  GO  SU 
B  4-70 

270  XF  B<2  OR  C©  CR3  — CK  RND  B<4* 
THEN  GO  TO  21© 

200  IF  R>I1  THEN  GO  TO  160 
238  LET  FL=r©:  XF  G  (22)  “C  OR  0(2 
4) =C  OR  0 (26) OR  Q (26j =C  THEN 
GO  SUB  1270 

380  XF  FL=1  THEN  GO  TO  650 
318  GO  TO  588 

320  >  LET  ©  f  M+N  CB)  3  =t©  CR*  :  LET  ©  CM 
>=E;  LET  Q  (Rj  — E 

338  PRINT  RT  B,0;  FLfiSH  INK 

3;  BB  ***&********&*'*****&* &£*****& 

348  FOR  T  =  -13  TO  55  STEP  3;  BEE 
P  .388T:  NEXT  T 
358  PRINT  RT  8,8:  INK  2;  PHPER 
7;  FLfiSH  1;  BRIGHT  1J "  Got 

MOU«  »•»••»  ” :  PfiUSt  12© 

PRINT  RT  0,0; " 

36©  LET  CO=CO+l 
378  GO  SUB  SB© 

SB©  LET 
39©  LET  B=8 
40©  LET  BaB+1 

41©  XF  (R+2*NfB) <11  OR  ft+2*N fB> 
>88)  RND  B<4  THEN  GO  TO  40© 

42©  LET  M=R+N(B) 

43©  XF  ©Cm=C  RND  B>3  THEN  RETU 
RN 

44©  XF  (Q«m  =H  OR  ©C  H)  =HK)  RND 
QCH+HCB)) =E  THEN  GO  TO  328 
45©  IF  B<2  OR  (© CRJ  =CK  RND  B  < 4 > 
THEN  GO  TO  488 
46©  RETURN 

47©  XF  SC <1©  THEN  LET  SC=SC+1 
46©  PRINT  RT  0,8;  INVERSE  1; “5a 
fe  move:  11  ;r;**  to  ,a;H:  BEEP  ©*5, 
50:  PRINT  RT  ©,©;*' 

u 

4-9©  LET  S  tSCi  =K&0ifi+B+20.'  RETUR 
N 
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500  IF  5C=6  THEN  GO  TO  55© 

510  LET  XC-  =  INT  (RND*SC)  +1 
52©  LET  Q=JNT  { S (XC» /1B0) 

530  LET  M=B+N  i5  (XC)  -I00ffi-S0.) 
540  GO  TO  65© 

550  LET  SC=SC+1;  LET  R=INT  CRND 
*56) +1 

560  IF  Qt'flJoC  RND  OCK  THE 

N  GO  TO  63© 

570  LET  6=0 
55©  LET  B=B*1 
530  LET  M=R*N  CB) 

600  IF  M>85  OR  Mill  THEN  GO  TO 
620 

61©  IF  © (M3 =E  THEN  GO  TO  65© 

620  IF  B<2  OR  ©CR)=CK  RNE>  6  <4  T 
HEN  GO  TO  56© 

630  IF  50 <3©0  THEN  GO  TO  550 
640  PRINT  RT  0,0; "I  concede  the 
q  a  m  e  “  sT  OP 

650  LET  ©  CM)  =©  CR)  :  LET  ©  CR)  -E 
660  PRINT  RT  0,0;  “From  **;fi;“  t 
'* ;  M :  FOR  T  =30  TO  -3©  STEP  -2: 
EEP  .008,T:  NEXT  T:  PRINT  RT  ©, 

-  It  ftt 

670  RETURN 
650  PRINT  RT  4,2;  BRIGHT  1;  INK 
6;’*  Spec  truss:  “;  CD;  "  HLmtan:  ** 
;  HU; . *  * 

71©  PRINT  TRB  6;  BRIGHT  l;  INK 
6; “12345675” 

720  FOR  F=63  TO  IS  STEP  -1© 

73©  PRINT  TRB  5;  BRIGHT  1;F/10; 
74©  FOR  G  =  1  TO  S'.  PRINT  CHRf  ©{ 
F+G) ; :  NEXT  G 
75©  PRINT  F/10:  NEXT  F 
76©  PRINT  TRB  6;  BRIGHT  1;  INK 
6;  “ 12345675“ 

770 > IF  00=12  OR  HU  =  12  THEN  GO  T 
O  79© 

750  RETURN 

730  IF  HU =12  THEN  PRINT  RT  ©,©; 
“You  have  won  -  .  .  Than  K  s  for  the**, 
,  “  3  a  Bi  e  “  :  STOP 

500  IF  00=12  THEN  PRINT  RT  © , 0 ; 
**I  have-  »&n..-ThafHs*  For  the**,  ,** 
gase**:  STOP 
810  REM  99  TO  CONCEDE 
520  REM  1  TO  COPY  _BORRD 
85©  INPUT  FLRSH  1; "  FrOB?  ”;R 
860  IF  R=99  THEN  PRINT  RT  0,0;" 
ThenKs  for  the  ga»e“ :  STOP 
87©  IF  R=1  THEN  COPY  :  GO  TO  85 

0 

900  INPUT  FLRSH  1^  CR>  ;  ”  T©  7  **; 
B 


Cil’l© 
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91©  LET  ©CBJ=©{R);  LET  ©  IFi)  =E 
92©  t~ OR  T  =  11  TO  17:  IF  ©(T'S^C  T 
HEN  LET  © (TJ  =CK 
93©  NEXT  T 

94©  FOR  T=8£  TO  ©S.  IF  © iT J =H  T 
HEN  LET  ©  CT  J  =HK 
95©  NEXT  T 

96©  IF  BBS  fR-BJ  -C 12  THEN  RETURN 


97©  LET  TV  =RNB 

96©  IF  TY  <0.3  THEN  PRINT  RT  0,0 

..  “Good  move“ 

99©  IF  TY>©.7  THEN  PRINT  RT  0,0 
;  “Go  t  me  ■  “ 

995  FOR  T  =  -£©  TO  -1  STEP  0,7:  B 
EEP  .©1,T:  NEXT  T:  PRINT  RT  0,0; 

t«  ■< 


1890  UET  HU— HU +  2  :  LET  0  C  C Ft ±3 )  .-"2 ) 
=E:  GO  SUB  668 

2020  FOR  T =S2  TO  SB:  IF  OCT)  T 
HEN  LET  Q  CT)  =HK 
2©2©  NEXT  T 


2©30  INPUT  FLRSH  2; "Can  you 
5 Q3  i  H ^7  (V /H )  *  / 

1040  IF  RND  R£<>*'y** 

RETURN 

2060  LET  R=B:  GO  TO  868 
1070  PhPER  2:  BORDER  2:  INK 


jump 

THEN 

7:  C 


L5 
2076 
2000 
=  221 


PRINT  RT  0,8; “Stand-by 
EET  H  =  22© :  LET  HK=7t>: 
LET  CK=36:  LET  E=32: 


LET 

LET 


C 

B 


=  243 
1090 


LET  oF=-99:  0IH  8  C99) 


IH 


Hi 4  >  _ 

1100  FOR  H  =  2  TO  S9:  LET  O(M)  =OF: 


NEXT  M 

1210  FOR  H=2  TO  64 
1220  RERD  E"  :  RERD  G 
2130  LET  ©CD) -G:  NEXT  H 

2140  DPTfl  81,8,82,0,83,6,84,0^85 
,  6 , 86  .*  O  ,  87 , 6 

115©  DfiTfi  88,0, 71,0,72,8,73,0,74 
,8,75,0,76,8 

1160  DRTR  77,0,78,8,62,8,62,0,63 
,  8 , 64  ,  u- 

1170  DRTfi  65,8,66,0,67,8,68,0,52 
,  E  ,  52  ,  B 

2180  DRTR  53,E,54,B,55,E,56>Bv57 
,  E  ,  58 , 8 

1190  DRTR  42, 8, 42, E, 43, B,44,E,45 
,  6 , 46  ,  E 

1200  DRTR  47, 8, 48, E, 31, H, 32, 8,33 
,H,34,B,35,H 

1210  DRTR  36, 8,37, H, 38, 8,21, 5,22 
,H,23,6,24,H 
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122©  DRTR  25#E,26/H,S?fB,SB#H,ll 
,  H, 12, B, 13  ,H 

123©  DRTR  U,B,15,H,i6,B,17,H,18 

t  B 

124-©  FOR  H=1  TO  4-:  RERD  N  (M3  :  NE 
XT  M 

1250  DRTR  -11,-9,11,9 
1250  LET  CO=0.  LET  HU=0:  RETURN 
127©  IF  0(223=0  RND  Ofll3=E  THEN 
LET  R=22.  LET  M=ll:  LET  FL=1;  R 
ETURN 

128©  IF  0(223=0  RND  0(133 =E  THEN 
LET  R=22;  LET  M=13:  LET  FL=1:  R 
ETURN 

129©  IF  0(243=0  RND  Od33=E  THEN 
LET  R  =24- :  LET  H=13;  LET  FL=1:  R 
ETURN 

1300  IF  0(24-3=0  RND  £?(153=E  THEN 
LET  B=£4-:  LET  M=15:  LET  F L=l:  R 
ETURN 

1310  IF  0(263=0  RND  0(153 =E  THEN 
LET  R=26:  LET  M-15:  LET  FL=1:  R 
ETURN 

132©  IF  0(263=0  RND  Oil73=E  THEN 
LET  fi=£6.  LET  H=17;  LET  FL  =1 :  R 
ETURN 

134-©  RETURN 


TIC-TAC-TOE 

TIC-TAC-TOE  (noughts  and  crosses)  is  the  well-known  game  in 
which  you  and  your  opponent  take  it  in  turns  to  place  your  symbols 
(either  a  zero  or  a  cross)  on  vacant  positions  on  a  three  by  three 
grid,  trying  to  get  three  in  a  straight  line  in  any  direction,  vertically, 
horizontally  or  diagonally.  The  game  has  been  so  well  analyzed  that 
there  are  rarely  surprises  when  playing  it.  Instead  of  the  more 
predictable  noughts  and  crosses  programs  in  which  the  human  can 
at  best  draw  (and  will  generally  lose),  I  set  myself  the  task  of  writing 
a  program  which  would  play  in  a  non-predictable,  but  still  fairly 
intelligent  manner.  The  program  I  came  up  with  allows  either  you 
or  the  computer  to  go  first  (the  decision  as  to  who  will  move  first  is 
determined  by  line  50).  Apart  from  taking  the  middle  square  if  it  is 
available,  the  Spectrum's  moves  are  difficult  to  predict  (except  of 
course  for  completing  a  line  of  three  if  it  exists  or  of  blocking  one  of 
your  potential  lines  of  three). 

If  RND  in  line  50  is  greater  than  0.5,  the  computer  decides  to 
move  first  and,  after  a  pause,  goes  to  line  90,  which  sends  action  to 
the  subroutine  from  line  700  where  the  board  is  printed  out.  On 
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return  from  the  subroutine  the  computer  goes  to  the  subroutine 
from  line  430  which  is,  as  you  can  see,  the  'win  check'  routine.  This 
routine,  which  checks  all  the  possible  wins,  continues  to  line  550. 

Back  home  from  the  'win  check'  the  computer  looks  at  the 
central  square  (number  five).  If  it  finds  this  position  empty  the 
computer  moves  into  it  and  (as  the  end  of  the  line  indicates) 
immediately  goes  to  line  60,  where  the  board  printing  subroutine  is 
called  prior  to  the  human  player's  move  being  accepted. 

If  this  simple  move  cannot  be  made  the  computer  prints  up  the 
message  "Please  stand  by",  then  checks  for  a  possible  win  the 
first  time  it  moves  through  the  routine  from  1 40  to  280  and  if  one  is 
not  found,  looks  for  a  potential  three  it  can  block.  If  neither  of  these 
are  found  the  computer  chooses  up  to  20  moves  at  random, 
looking  for  somewhere  to  move.  If  no  move  has  been  found,  the 
computer  (using  the  routine  from  350  to  380)  checks  each  square 
in  turn.  If  no  move  is  found,  the  computer  knows  all  squares  are 
full.  It  also  knows,  because  it  has  made  a  'win  check'  earlier,  that 
neither  it  nor  you  have  won,  so  the  result  must  be  a  draw.  Line  41 0 
prints  this  up.  After  a  trill  or  two  from  the  music  department  (the 
routine  from  590  to  600)  the  program  automatically  reruns. 

The  player  move  subroutine  from  line  620,  allows  you  to  enter 
your  moves  via  INKEYS,  so  it  is  not  necessary  to  press  ENTER  after 
selecting  a  number. 

Note  how  the  entire  game  is  called  within  an  endless  cycle  from 
60  to  100,  printing  the  board,  accepting  a  player  move,  printing 
the  board,  checking  for  a  win  or  a  block,  making  the  computer 
move  . . .  and  so  on,  until  the  game  ends.  The  advantage  of 
working  in  this  way  with  the  program  made  up  of  subroutine  calls 
from  an  endless  cycle,  is  that  you  can  modify  different  parts  of  the 
program,  improving  them  as  you  do  so,  without  having  to  dislodge 
previously  written  parts. 

If  you  wish  to  improve  the  play  of  this  program  (although  it  will  be 
at  the  cost  of  the  program  becoming  more  predictable),  you  could 
get  it  to  sample  the  squares  in  the  'random  move'  section  (from 
line  290)  in  a  predetermined  order. 

10  REM  TIC  TflC  TOE 
20  DIM  R(93 
3©  RANDOMIZE 

4-0  BORDER  1:  INK  7:  PRPER  1.  C 

l_S 
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5©  IF  RND > @ . 5  THEN  PRINT  RT  5  , 
5:  FLRSH  I; "I'll  go  first...”:  F 
OR  E=1  TO  5©:  BEEP  0  -  SB  E .  NEXT 


E :  CL 5  :  GO  TO  30 

6©  GO  SUB  70© 

70  GO  SUB  4-3© 

30  GO  SUB  S3© 

90  GO  SUB  7©0 
10©  GO  SUB  4-3© 

118  IF  Rf51=0  THEN  LET  R (53  =1 : 
GO  TO  S© 

13©  REM  TO  COMPLETE  ROW/BLOCK 
13©  PRINT  RT  1,1;  FLASH  1; "Plea 
S£  £  t  3 1 1 d  by ” 


14.0 

LET  D=1 

IS© 

LET  3=1 

IS© 

IF  B=1  THEM  LET 

X 

tl 

LET 

v  = 

2:  LET  Z=3 

170 

XF  B=2  THEN  LET 

X  =  1  ; 

LET 

y  = 

4- :  LET  Z=7 

IS© 

XF  3=3  THEN  LET 

>;  —  2. : 

L  ET 

V  = 

S:  LET  Z=© 

19© 

XF  3=4-  THEN  LET 

X  =3  : 

LET 

Z:= 

*  200 

LET  0=1 

21© 

XF  F*  CX>  =£>  RHD  R 

CV3  =D 

RND 

H  £ 

ii 

s~. 

N 

THEN  LET  R  CZJ  =1 

:  GO  T 

Q  S 

0 

22© 

XF  R (X) =D  RND  R 

iYj  =0 

r%  k  {  r-, 

H  C 

Z1  =D 

THEN  LET  ft  CYJ  =1 

GL  to  s 

0 

23© 

XF  R  C  X }  =©  RAID  R 

*  v  \  t 

R  ( 

33=0  THEN  LET  R (X) -1 :  GO  TO  60 


24.0  XF  3  =  1  THEM 
Y  =  V *f  3  :  LET  Z=Z-F3 

LET 

**I  - «*t  w  » 

LET 

25©  XF  3=2  i HEN 
Y  =Y  + 1  :  LET  Z=Z4l 

LET 

X  =X  f  X 

LET 

260  XF  C  <3  THEN 
O  2X0 

LET 

C=C4l; 

GO  T 

270  XF  S  <4-  THEN 
O  17© 

LET 

0  —  0  - 

GO  T 

230  XF  D<2  THEM 
0  IS© 

LET 

D  —  D  4-  X  . 

G  O  T 

39©  REM  MOUE  RT  RANDOM 
300  LET  B=2 

310  LET  C  =  INT  f RND *93  *1 
330  IF  R { C3 =©  THEN  LET  RiC 3=1: 
GO  TO  S© 

330  LET  B=B+2 

34-0  IF  B  <21  THEN  GO  TO  320 
350  LET  B=0 
3S0  LET  B=B+I 

370  IF  fi CB)  =0  THEM  LET  RiBJ  =1: 
GO  TO  SS 

3S0  IF  B<9  THEN  GO  TO  3S© 

390  GO  SUB  700 

4-0©  PRINT  -  '  '  '  FLRSH  2  :  T SB  5;”  I 
t'sadraw! 
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*10  GO  TO  5S8 
4-3©  REM  UIN  CHECK 
4-4-0  POP  B  =  i  TO  4- 

4-5©  XP  B  =  1  THEN  LET  X  =  I:  LET  Y  = 

2:  LET  Z=3 

4-6©  XF  6=2  THEN  LET  X  =  X:  LET  Y  = 

4-:  LET  Z=7 

4-70  XF  B=3  THEN  LET  X=I;  LET  Y  = 

5:  LET  Z=9 

^4-8©  XF  6=4-  THEN  LET  X=3:  LET  Z  = 

r  490  FOR  C  =  1  TO  3 
50©  XF  R(X) =H (Y)  THEN  JF  R CV 3 =R 
CZ 3  THEN  XF  R  CX3  < >0  THEN  GO  TO  5 
SO 

510  XF  6  =  1  THEN  LET  X=X*3:  LET 

V  =Y  +3:  LET  Z  =Z  *-3 
52©  XF  6=2  THEM  LET  X=X4-1:  LET 

Y=Y*M:  LET  Z=Z-hl 
53©  NEXT  C 

54-0  NEXT  B 

55©  RETURN 

55©  BEEP  1,1;  BEEP  2 , 2 
570  XF  fi  CXi  =1  THEN  PRXNT  ’*  '  '  '  F 
LR5H  1 ;  TRB  5;“X'is  the  ainner! 

58©  XF  R  (X3  =2  THEN  PRXNT  ''  FL 
R5H  1 T Ho  5 ;  "Vo u  '  re  th t  sin n e r  * 

59©  FOR  X=1  TO  25:  BEEP  . ©5 , X : 
NEXT  X 

50©  FOR  X =5©  TO  25  STEP  -©*5:  B 
EEP  . 03  , X :  BORDER  RNDf7;  NEXT  X 
61©  RUN 

62©  REM  PLAYER  MOUE 

630  PRINT  BT  1,1;  FLASH  i;  "YOOr 
move  -  -  -  ** 

64-0  LET  fi$  =  INK E  Y  $ 

55©  XF  OR  RJ>M3"  THEN  GO 

T  O  *1*4-0 


SB© 

LET 

B  =URL 

(R$> 

67© 

IF  R  CB)  i  >© 

THEN  GO  TO  54-0 

630 

LET 

R  CB3  =2 

59© 

RETURN 

700 

REM 

PRXNT 

OUT 

71© 

PRINT  RT  1 

■  • 

,  i;  " 

720 

P  RXh 

IT  RT  6 

,5;"i  s  3 

725 

LET 

FLBG=8 

730 

FOR 

B  =  !  TO 

Q 

735  XF  RCB3=©  THEN  LET  FLBG-l 
74-0  IF  R  €63  =0  THEN  PRINT  "  „  ; 

BEEP  ,85,18 

75©  XF  fi€B3=i  THEN  PRXNT  '* 

BEEP  «  ©9 5© 


O 
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76©  IF  R(B)  =2  THEN  PRINT  "  X  1 ; 

:  BEEP  - ©5 , —3 

77©  IF  S=3  THEN  PRINT  RT  3,5;  "4. 

5  6**' 

780  XF  B=6''THEN  PRINT  RT  10,5;  " 

7  8  9  “; 

79©  NEXT  8 

80©  IF  FLAG =0  THEN  GO  TO  400 

81©  RETURN 

NEOPHYTE  CHESS 

ne-o+phyte  n.  1.  a  person  newly  converted  .  .  . 

3.  a  novice  or  beginner .  .  .  ( Collins  English  Dictionary,  Collins, 

1979) 

Back  in  1978  when  chess-playing  computers  were  a  rarity, 
readers  of  the  Romanian  weekly  publication  Magazinul  took  part  in 
a  game  of  chess  against  a  computer  in  that  country  called  Felix 
C-256.  Programmed  by  mathematician  Vioreal  Darie  from  the 
Bucharest  Institute  of  Computing  Technique,  the  program — Astro- 
64 — took  two  years  to  develop.  Felix  made  a  move  and  readers 
were  invited  to  write  in  with  the  move  in  reply.  The  most  popular 
move  was  fed  into  Felix  and  its  response  printed  in  the  following 
week. 

Despite  the  600  hours  or  so  which  were  invested  in  writing  the 
program,  Felix  did  not  play  particularly  well  and  was  finally  defeated 
by  the  combined  readership  of  Magazinul.  One  chess  expert  said 
that  the  program  sometimes  made  good  or  excellent  moves  but  at 
other  times  played  'like  an  uneducated  chess  player'  and  made 
'even  beginners'  mistakes'. 

As  the  title  of  our  program  (defined  by  the  quotation  at  the 
beginning  of  this  section)  and  the  story  of  Felix  have  probably 
suggested,  the  same  criticisms  could  be  levelled  at  our  program, 
NEOPFIYTE  CF1ESS.  It  does  not  play  good  chess  and  should  prove 
easy  to  defeat,  but  it  has  been  included  in  this  book  for  several 
reasons. 

Chess  has  always  beckoned  as  a  temptation  to  programmers.  It 
used  to  be  thought  in  the  innocent  pre-micro  days,  that  if  a 
computer  could  be  programmed  to  play  chess,  this  might  be 
construed  as  proof  that  computers  could  truly  be  considered 
intelligent.  In  order  to  cope  with  the  enormous  number  of 
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permutations  which  could  occur  in  a  game  the  scope  of  a  chess 
program  must  be  very  broad  compared  with,  say,  a  program  to  play 
checkers  or  noughts  and  crosses.  There  are  some  1012®  possible 
games  of  40  moves,  a  similar  number  of  games  to  the  number  of 
atoms  in  the  universe.  Programming  a  computer  to  cope  with 
these  sorts  of  possibilities  is  a  formidable  challenge. 

Very  few  chess  programs  in  BASIC  have  ever  been  published. 
The  fact  that  one  can  be  developed  which  plays  in  a  reasonable 
time  is.  I  think,  of  interest  in  itself  and  there  is  no  doubt  that 
watching  this  program  play  is  fascinating,  even  if  it  will  never  show 
you  how  to  improve  your  chess.  This  program  plays  very  quickly 
most  of  the  time.  It  locates,  stores  and  sorts  its  piece  positions  in 
less  than  four  seconds  and  generally  moves  within  six  to  fifteen 
seconds  after  that.  As  board  positions  become  more  complex,  the 
game  slows  down,  but  the  Spectrum  still  rarely  takes  more  than 
forty  seconds  to  move. 

After  the  listing,  I've  added  a  variation  of  the  program  which 
allows  it  to  play  against  itself.  Watching  the  computer  grapple 
alternatively  with  white,  then  black,  is  fascinating  and  will  give  you 
a  good  insight  into  weaknesses  in  the  Spectrum's  game  which  I 
hope  you  will  feel  inspired  to  try  and  remedy.  The  program  has 
deliberately  been  written  in  modular  form  to  make  it  easy  to  get  at 
the  sections  which  deal  with  specific  pieces,  so  you  can  gradually 
modify  the  program  to  your  own  liking. 

The  fact  that  Felix  could  even  play  chess  was  considered  news  in 
1978.  And  it  is  perhaps  surprising  that  although  the  first  major 
paper  on  the  possibilities  of  the  computer  playing  the  game — 
Programming  a  Computer  for  Playing  Chess — was  delivered  in 
1949  by  Claude  Shannon  (an  important  early  figure  in  the 
development  of  computers),  the  first  program  did  not  surface  until 
a  decade  later,  when  Alex  Bernstein  and  three  of  his  colleagues  at 
IBM  managed  to  get  a  game  up  and  running  on  an  IBM  704. 
Despite  this  relatively  late  beginning,  there  are  a  great  many  chess 
programs  available  today,  including  several  competing  versions  for 
the  Spectrum  alone. 

But  chess  is,  as  I  said,  a  formidable  challenge  for  a  programmer 
to  tackle.  Once  you've  entered  this  program  and  worked  on  it  a  bit, 
you  should  have  a  much  better  idea  of  oneway  in  which  a  primitive 
game  can  be  developed.  From  there,  you  should  be  better  able  to 
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appreciate  how  dedicated  chess  machines  work,  and  can  then  turn 
your  hand  to  writing  a  complete  program  for  the  game  from 
scratch.  I  have  used  a  number  of  ideas  which  are  fundamental  to 
writing  board  games  in  this  program  and  you  should  be  able  to  find 
many  other  programs  in  which  the  ideas  can  be  used. 

The  first  decision  I  made  was  to  set  my  sights  on  a  realistic 
target.  When  I  was  new  to  this  game,  I  was  struggling  with  an  early 
draughts  program  I  had  written,  trying  to  workout  how  to  allow  the 
computer  to  recognize  and  make  multiple  jumps.  Trevor  Sharpies 
(who  has  co-written  two  books  with  me)  suggested  that  I  write  the 
program  simply  to  cater  for  double  jumps.  He  pointed  out  that  as 
the  program  did  not  play  particularly  well,  the  chance  of  it  getting  a 
triple  jump  against  a  human  player  was  so  unlikely  it  would  not 
need  to  be  catered  for.  Later  I  developed  a  simple  subroutine  to 
cater  for  n  jumps,  but  at  that  time  the  advice  was  invaluable.  Claude 
Shannon,  the  man  who  delivered  the  paper  on  chess  playing  in 
1949,  was  the  one  who  said  there  were  approximately  10120 
different  sequences  of  moves  which  could  be  played  in  a  40  move 
game.  Shannon  added  that  a  fast  computer  would  take  1 090  years 
to  examine  all  the  possible  moves  to  be  made,  before  it  even 
decided  to  move  its  first  pawn  forward  two  squares. 

I  decided  that  1090  years  was  a  little  long  to  wait  and  40  times 
1090  (approximately)  would  try  my  patience  severely.  An  ex¬ 
haustive  search  was  obviously  out,  even  if  I  had  the  programming 
skill  (which  I  do  not)  to  write  a  program  to  somehow  assess  those 
moves  and  choose  one  which  was  worthwhile. 

Even  though  I  had  no  plans  to  write  a  program  which  would  have 
anything  but  the  most  basic  means  of  looking  at  possible 
consequences  of  its  moves,  I  knew  that  the  very  number  of 
combinations  which  could  be  considered  at  the  simplest,  level 
could  make  the  program  very,  very  slow.  I  was  pleasantly  surprised 
at  how  quickly  it  played  when  I  finally  got  it  up  and  running,  even 
though  I  had  tried  to  write  it  to  optimize  speed.  A  program  which 
has  often-called  subroutines  towards  the  end  of  the  listing  tends  to 
run  a  little  more  slowly  than  it  would  if  the  subroutines  were  near 
the  beginning  of  the  program.  This  is  because  a  computer  looking 
for  a  subroutine  destination  starts  at  the  very  first  line  number  in 
the  program  and  then  goes  through  it  line  by  line  looking  for  the 
start  of  the  subroutine.  If  the  routine  is  near  the  start,  it  has  fewer 
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lines  to  search. 

I  planned  the  entire  program  carefully,  writing  the  first  version 
out  completely  on  paper  before  a  single  character  was  entered  into 
the  Spectrum.  This  allowed  me  to  handrun  it  more  times  than  I  care 
to  remember  and  to  shuffle  the  component  parts  so  that  the 
program  structure  was  as  logical  as  possible.  It  appears  that  this 
has  kept  its  response  time  low. 

So,  the  first  two  ideas  incorporated  in  this  program  are  the  need 
to  aim  at  a  moderate  horizon  and  to  have  a  program  structure  which 
impedes  response  time  as  little  as  possible. 

The  next  important  idea  concerned  the  board  layout.  My  first 
attempts  at  computer  board  games  used  a  board  numbering 
system  I  developed  based  on  an  idea  put  forward  by  A.  L.  Samuels 
in  an  article  in  Scientific  American  (see  Strachey,  C..  'Systems 
Analysis  and  Programming',  in  Readings  from  Scientific  American, 
W.  H.  Freeman  and  Co.,  San  Francisco,  1971). 

Although  this  worked  satisfactorily,  it  required  a  long  routine  to 
convert  player  moves  as  entered  into  numbers  which  the 
computer  could  use.  A  far  more  satisfactory  board-numbering 
system  was  suggested  to  me  in  late  1 981  by  Graham  Charlton  (co¬ 
author  of  The  Turing  Criterion — Machine  Intelligent  Programs  for 
the  16KZX81,  Interface,  London  1982)  and  this  lies  at  the  heart  of 
the  CHECKERS  program  in  this  book,  and  NEOPHYTE  CHESS.  The 
entire  board  is  held  in  an  array  and  moves  are  made  simply  by 
swapping  elements  of  the  array  around,  replacing  one  element  of 
the  array  with  the  character  for  an  empty  square  when  a  piece 
leaves  one  location,  and  putting  the  CODE  of  that  piece  in  the 
element  of  the  array  representing  the  position  to  which  it  is 
moving.  When  the  board  is  printed  the  computer  simply  has  to 
print  the  character  (CHRS)  of  each  element  in  the  array  in  turn.  The 
Charlton  board  numbering  system  also  makes  for  easy  conversion 
between  the  numbers  entered  by  a  player  to  indicate  the  moves  he 
or  she  wishes  to  make,  and  the  element  number  of  the  array  which 
that  player  move  represents. 

I  knew  before  I  began  the  program  that  the  player  should  be  able 
to  refer  to  the  squares  on  the  board  by  the  algebraic  notation  which 
is  fairly  standard  in  chess  circles,  so  arranged  my  board  to  make 
this  as  easy  as  possible.  This  diagram  shows  the  squares  on  the 
board,  around  the  board  are  the  numbers  and  letters  used  in  chess 
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algebraic  notation,  and  within  the  board,  the  elements  of  the  array 
which  refer  to  that  square: 


8 

7 

6 

5 

4 

3 

2 

1 


ABCDEFGH 


m 

B7S] 

m 

m 

m 

m 

m 

m 

m 

m 

Bl 

m 

m 

ES 

m 

m 

1 

m 

u 

ESI 

m 

m 

0 

m 

m 

m 

Q 

SI 

SI 

SI 

The  real  advantage  of  the  Charlton  system  over  other  board¬ 
numbering  systems  I've  considered  is  that  any  move  can  be 
described  as  a  simple  addition  to,  or  subtraction  from,  the  starting 
square.  An  explanation  should  make  that  clear.  Imagine  that  you 
have  a  knight  on  the  square  numbered  45.  As  you  know  a  chess 
knight  moves  in  an  L-shape,  two  squares  and  then  one,  or  one 
square  and  then  two.  One  possible  move  for  the  knight  is  to  go 
from  its  current  square  (45)  to  the  square  numbered  66,  an 
increase  of  21 .  Now  imagine  the  knight  was  on  square  1 1 .  Add  21 
to  this  and  we  get  32,  another  possible  legal  move.  Start  from  52, 
add  21,  and  we  get  a  (correct)  destination  square  of  73.  The  eight 
moves  of  the  knight  from  any  one  position  (assuming  the  move 
does  not  take  it  off  the  board)  can  be  found  by  adding  the  following 
numbers  to  the  starting  square: 


19,  -19,  21, -21, 8, -8,  12,-12 


In  a  similar  way,  pawn  moves  can  (apart  from  the  first  move, 
when  two  squares  are  possible)  be  found  simply  by  adding  one  on 
to  the  starting  square  (so  a  pawn  can  move  legally  from  45  to  46,  or 
from  23  to  24).  A  pawn  captures  by  moving  one  square  diagonally, 
so  it  can  capture  to  squares  designated  as  plus  1 1  or  minus  nine. 
Knowing  this,  we  can  program  a  computer  fairly  easily  to  search 
the  possible  legal  moves  from  its  starting  square. 
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This  is  exactly  what  I  have  done  in  this  program.  If  you  look  at  the 
lines  following  2640  in  the  initialization  section  of  NEOPHYTE 
CHESS,  you'll  see  how  it  is  done.  Firstly  (in  line  2650)  a  number  of 
arrays  are  DIMensioned  to  be  used  for  several  tasks.  Among  them 
are  arrays  to  hold  the  potential  moves  of  specific  pieces.  The  N 
array  (N  is  used  to  designate  knight,  to  distinguish  it  from  K  for  king) 
is  filled  with  the  DATA  in  line  2870.  If  you  look  at  that  line  you'll  see 
the  same  eight  numbers  as  we  discussed  a  few  paragraphs  ago  for 
holding  knight  moves.  One  way  of  making  a  knight  move  (and  this 
method  is  used,  with  some  limitations,  at  one  point  in  NEOPHYTE 
CHESS)  is  to  generate  a  number  at  random  between  one  and  eight, 
and  test  that  element  of  the  N  array  to  see  if  the  square  the  knight 
currently  occupies,  plus  the  number  in  that  element  of  the  N  array, 
is  either  an  empty  square  or  is  a  piece  owned  by  the  opponent.  If  it 
is  found  to  be  an  opponent's  piece  and  a  few  tests  indicate  that  this 
square  does  not  face  capture  from  other  pieces,  the  move  can  be 
made.  This  is  the  technique  which  lies  at  the  heart  of  NEOPHYTE 
CHESS.  Take  a  few  moments  to  re-read  this  to  understand  it.  If  you 
are  willing  to  put  in  the  amount  of  methodical  work  required  you 
could  probably  now  write  a  chess  program  from  scratch,  armed 
with  the  information  given  up  to  this  point. 

A  program  which  moved  simply  by  throwing  a  couple  of  dice, 
such  as  this  explanation  suggests,  would  of  course  fa  II  prey  to  even 
a  beginner  very  rapidly.  So  the  move  generation  process  must  be 
modified  to  some  extent,  as  is  done  in  this  program,  but  the  move¬ 
making  works  just  as  described.  The  piece  arrays  are  in  the 
program  as  follows: 

Knight  -  2860  to  287 0 
Rook  -  2880  to  2920 
Bishop  -2930to2970 

Queen  -  2990  loads  the  Q  array  with  the  elements  of  the 
bishop  and  rook  arrays,  because  the  queen's 
moves  are  simply  a  combination  of  all  the  rook 
moves  and  all  the  bishop  moves 
King  -3000  to  3010 

The  next  array  to  be  filled,  the  S  array  (lines  3020  to  31 00),  holds 
the  next  secret  of  our  program.  Many  'intelligent'  board  game 
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programs  (such  as  the  CHECKERS  in  this  book)  go  through  each 
square  on  the  board  from  the  top  left  hand  corner  to  the  bottom 
right  one,  square  by  square,  looking  for  pieces,  captures  and 
moves.  My  decision,  and  the  one  which — more  than  any  other — 
accounts  for  the  speed  of  this  program,  was  to  sample  the  squares 
in  an  order  which  I  felt  was  most  in  keeping  with  the  game  of 
chess.  The  order  in  which  the  squares  are  sampled  is  held  in  the 
DATA  statements,  3030  to  31 00.  Here  are  the  numbers  which  you 
can  compare  with  the  locations  on  the  numbered  board  given  a 


short  time  ago: 

4.S  56 

3© 

66 

4-7 

57 

4-5 

55 

3? 

©7 

35 

65 

2© 

7© 

27 

77 

14- 

54. 

2© 

76 

3© 

6© 

17 

©7 

18 

B© 

34- 

64- 

25 

75 

16 

SB 

4-© 

24- 

74- 

15 

©5 

14- 

©4- 

4-3 

33 

33 

53 

23 

73 

52 

4-2 

©2 

32 

S3 

13 

72 

22 

12 

©2 

4-1 

51 

31 

61 

21 

71 

11 

©1 

5© 

The  program  always  looks  at  the  square  46  first,  then  56  and  so 
on,  through  the  list.  It  is  worth  studying  this  for  a  few  moments  as 
this  order  is  something  you  may  well  feel  like  changing  in  due 
course. 

Let's  recap  on  the  parts  of  the  program  we've  discussed  so  far. 
We  pointed  out  that  this  program  has  been  included  because 
chess  has  proved  a  constant  fascination  to  computer  programmers 
and  although  NEOPHYTE  CHESS  does  not  play  well,  it  can  teach 
quite  a  bit  about  programming  chess  and  similar  board  games. 
Despite  being  in  BASIC,  it  plays  remarkably  quickly. 

The  program  listing  is  followed  with  a  variation  of  the  first  ten 
lines  or  so  to  allow  the  computer  to  play  against  itself.  This  provides 
a  fascinating  display  and  is  a  good  way  to  debug  the  program,  since 
you  can  leave  it  running — all  day  if  necessary — playing  against 
itself  to  see  if  it  crashes  at  any  point,  which  will  indicate  a  typing 
error. 

The  board  numbering  system  used  has  been  illustrated  and  it 
was  explained  that  this  numbering  system  means  that  moves  of  all 
pieces  can  be  expressed  in  terms  of  an  addition  to,  ora  subtraction 
from,  the  element  of  the  array  which  represents  that  square  on  the 
chess  board.  The  possible  moves  by  each  piece  are  stored  in  an 
array,  with  each  array  name  designed  to  make  it  fairly  easy  to 
recognize  what  each  array  holds,  such  as  Q  forthe  array  holding  the 
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queen’s  moves,  and  B  for  the  bishop  moves.  The  S  array  holds  the 

sequence  in  which  the  squares  on  the  board  are  checked  when  the 

computer  is  looking  for  a  move. 

Here  is  the  layout  of  the  program: 

1 0-30  Starting  information,  ensures  CAP  LOCK  is  engaged 

40-60  These  three  lines  reprint  the  board  after  the 

computer  move,  call  the  playerto  enter  his  or  her 
move,  and  reprint  the  board 

70-2350  This  is  the  hub  of  the  program,  and  contains  all  the 
thinking  part  of  the  game.  We'll  look  at  it  in  more 
detail  shortly 

2360-2460  This  reprints  the  board  after  each  move  and  (in  lines 
241 0  and  2420)  promotes  pawns  which  have  made 
it  to  the  back  rank  to  queens 

2470-2560  This  is  the  'court  of  last  resort'  if  the  king  senses  it  is 
in  trouble.  From  here,  if  a  move  is  not  made, 
line  2560  directs  the  program  to  2060  where  the 
computer  concedes  the  game 

2570-2630  This  section  accepts  the  player's  move,  calling  the 
'comment'  subroutine  if  a  computer's  piece  has 
been  taken,  and  allows  the  player  to  signal  various 
things  to  the  program  after  the  move  has  been 
entered.  The  program  demands  input  in  the  form  of  a 
letter  and  a  number  (such  as  A5)  entered  as  a  single 
string  to  designate  the  square  you’re  moving  from, 
then  a  further  letter  and  number  to  indicate  the 
square  you  wish  to  move  to.  Once  this  is  done  (and 
the  program  checks  the  length  of  the  input,  but  does 
not  check  the  legality  of  the  move),  you  are 
presented  with  the  following  choices: 

C  -  you've  got  the  computer  in  check 
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P  -  you  want  a  copy  of  the  board  printed 

X  -  you  wish  to  exchange  sides 

S  -  to  terminate  the  game 

ENTER  -  to  continue  with  play 
Once  you've  indicated  which  of  these  you  want, 
lines  2625  and  2630  actually  make  your  move. 


This  ends  the  working  parts  of  the  program,  except  for  the 
subroutines  which  'comment'  on  a  capture  by  the  player  and  the 
routine  which  is  called  when  you  wish  to  exchange  sides.  The  rest 
of  the  program  is  initialization,  and  it  is  made  up  as  follows: 

2640  This  seeds  the  random  number  generator,  sets  the 

flag  MM  to  zero,  and  sets  the  string  AS  (which 
accepts  the  first  part  of  the  player's  move,  and  is 
used  to  signal  check  and  the  like)  to  MM  is  the 
most  important  variable  in  the  whole  program.  When 
the  computer  finds  a  move,  MM  (named  after 
'machine  move')  is  changed  from  zero  to  one.  The 
flag  MM,  then,  is  checked  throughout  the  running  of 
the  program  and  only  when  its  state  changes  from 
zero  to  one  will  the  computer  stop  looking  for  a 
move.  It  will — if  necessary — go  through  the  process 
of  looking  fora  move  eight  times  before  it  concedes 
that  it  has  made  no  decision  which  will  switch  MM 
from  zero  to  one. 

2650  This  DIMensions  the  arrays.  Here's  what  they  do  - 

A  -  holds  the  board,  the  master  array 
R  -  rook  moves 
B  -  bishop  moves 
N  -  knight  moves 
Q  -  queen  moves 
K-  king  moves 

Z-  used  when  exchanging  sides 
S  -  sequence  in  which  squares  are  checked 
T  -  holds  the  location  of  each  piece,  contents 
changed  each  move. 
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2660-2670  These  two  lines  hold  the  variables  which  are  used 
for  the  pieces.  The  pieces,  by  the  way,  are 
represented  by  the  letter  names  (such  as  P  for  pawn, 
K  for  king,  and  N  for  knight)  with  the  computer 
playing  black  from  the  top  of  the  screen,  and  having 
its  pieces  represented  by  capital  letters,  with  small 
letters  for  your  pieces.  Here's  what  the  board  looks 
like  at  the  start  of  the  game: 


As  you  can  see,  the  board  is  made  up  from  dots 
rather  than  black  and  white  squares,  and  there  are  no 
user-defined  graphics.  The  point  of  this  program  was 
to  get  it  to  play  chess,  rather  than  to  get  it  to  look 
pretty,  but  if  you  wish  to  add  'proper'  chess  piece 
shapes,  by  all  means  do  (and  send  me  a  copy  of  your 
program,  via  the  publisher,  because  I'd  be  very 
interested  in  seeing  it).  Each  'from'  and  'to'  square  is 
indicated  by  the  letter  across  the  top  or  bottom, 
followed  by  the  number  down  the  sides,  so  your 
queen  starts  on  D1  and  the  computer's  king's  knight 
starts  on  G8. 

Here  are  the  variables  for  the  pieces: 

Human-white:  P-112;  R  —  114;  N  —  1 10;  B  —  98; 
Q  —  1 1 3;  K  - 107 

Computer  -  black:  PB  -80  (for  'pawn  black'); 
RB-82;  NB-78;  BB-66;  QB-81;  KB -75 

2680-3100  The  arrays  for  the  possible  movements  of  the 
pieces.  These  have  already  been  discussed. 


98  Board  Games 


3110  Sets  the  PAPER  and  BORDER  to  blue,  the  INK  to 

white.  Change  this  to  whatever  you  like. 

3120-3210  This  routine  allows  you  to  exchange  sides  at  any 
point  in  the  game  after  you  have  moved.  The 
exchange  works  as  follows:  the  computer  acts  as  if  a 
mirror  had  been  placed  across  the  centre  of  the 
board  and  the  pieces  are  reflected  in  this,  so  a  piece 
starting  on  A2  will  end  up  on  A7.  Although  the 
position  of  the  pieces  is  changed,  the  computer 
continues  to  have  the  capital  letters  and  you  have  the 
small  letters,  although  you  will  have  inherited  each 
other's  positions.  The  'auto-play'  option  simply  does 
an  exchange  after  each  move,  and  then  dumps  every 
second  board  (when  the  pieces  are  the  'right  way 
round')  so  you  can  keep  track  of  the  game.  You'll  find 
this  exchange  system  is  easy  to  understand  once 
you've  used  it. 

331 0-3380  If  you  move  on  to  a  computer  piece  (detected  in  line 
2625)  the  Spectrum  uses  this  subroutine  to 
comment  on  your  capture.  Three  times  out  of  four  it 
will  flash  the  border,  say  something  like  "Got  me!" 
and  play  a  little  trill,  then  three  mournful  notes.  The 
fourth  time  the  three  notes  only  will  sound,  plus  a 
very  quick  border  flash  to  acknowledge  the  capture. 

Finally,  before  we  get  to  the  program  listing  itself,  here's  a 
breakdown  of  what  happens  inside  it  when  a  game  is  under  way.  I 
hope  this  will  allow  you  to  interpret  its  workings,  so  that  when  you 
want  to  improve  it  you'll  know  which  section  to  tackle. 

In  line  70,  MM  (as  you  know)  holds  the  machine  move.  It  must  be 
reset  to  zero  after  each  move.  By  the  way,  if  you  want  to  have  first 
move,  delete  the  GO  TO  60  at  the  end  of  line  30.  UK  counts  the 
number  of  times  the  program  is  cycled  looking  for  a  move.  It  is 
designed  to  ensure  that  the  king  is  not  moved  without  good  reason 
and  to  encourage  the  program  not  to  concede  defeat  too  easily. 
The  next  few  lines  (80  to  1 00)  act  on  the  player's  intentions  as 
expressed  after  he  or  she  has  moved. 
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Line  110  dimensions  the  T  array.  Doing  this  every  time  fills  the 
array  with  zeroes,  ready  for  it  to  save  the  locations  of  each  of  the 
pieces.  U  is  the  variable  which  counts  the  number  of  pieces  the 
computer  has  on  the  board.  "  Please  stand  by"  appears  at  the  top  of 
the  screen  while  the  computer  searches  for  a  move.  The  routine  in 
lines  1 20  and  1 30  goes  through  all  the  squares  on  the  board,  in  the 
order  dictated  by  the  elements  in  the  S  array,  storing  them  as  it 
finds  them  in  this  order  in  the  T  array  and  counting  them  as  it  goes. 
The  variable  KM  is  called  the  'king  marker'  and  this  is  used  by  the 
computer  to  keep  track  of  its  most  valuable  piece  at  all  times.  KM  is 
set  to  the  king's  location  at  the  end  of  line  1 20.  Line  1 30  completes 
the  loop.  The  variable  U,  as  I  said  earlier,  counts  the  number  of 
pieces  on  the  board.  If  U  is  less  than  three,  the  computer  concedes 
the  game. 

The  action  now  goes  to  line  580  where  Z  is  set  equal  to  the  king 
marker.  The  next  routine,  from  that  line  right  through  to  810, 
checks  whether  the  king  is  in  danger.  This  check  is  made  whether 
or  not  you've  signalled  'check'  after  making  your  move.  Once 
danger  is  found,  the  computer  goes  to  the  lines  from  1710  to  see  if 
it  can  move  out  of  danger. 

Back  near  the  start  of  the  program,  at  150,  the  computer  goes 
through  its  pieces  and  moves  the  king  to  the  end  of  the  pieces,  so 
that  it  will  only  be  moved  if  there  are  no  other  moves  it  wants  to 
make.  It  knows  from  its  tests  in  the  routine  from  580  that  its  king  is 
not  in  danger,  so  there  is  no  reason  to  expose  the  king  to  new 
danger  by  moving  it  if  the  king  is  safe  where  it  is. 

Line  170  chooses  the  piece  in  the  sequence  with  which  it  will 
start,  choosing  one  of  the  first  three.  This  is  set  back  to  one  if  the 
player  has  signalled  check  by  the  end  of  line  170.  If  the  number 
chosen  is  less  than  the  total  number  of  pieces  on  the  board,  one  is 
added  to  the  value  of  Q  to  determine  which  element  of  the  T  array 
will  first  be  checked  for  a  move. 

Line  190  sets  the  variable  Z  (which  is  used  throughout  the 
computer  sequence  as  the  'from  location')  to  the  element  of  the  T 
array  chosen,  and  the  program  jumps  three  lines  to  a  subroutine 
starting  at  230.  A  BEEP  produced  by  230  shows  the  computer  is  on 
the  job.  The  BEEP  from  this  spot  sounds  from  time  to  time  as  the 
computer  is  looking  for  a  move  so  that  you  know  it  is  still  working, 
even  if  it  seems  to  be  having  trouble  finding  a  move. 
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The  next  four  lines  send  the  program  to  a  specific  subroutine, 
depending  on  the  piece  being  considered.  From  these  subroutine 
destinations,  you  can  discover  which  parts  of  the  program  look 
after  the  'can  I  capture'  actions  by  the  computer: 

Queen  -  820 
Rook  -  1300 
Knight  -  1 540 
Pawn  -  2070 

Line  280  returns  us  to  line  200,  where  MM  is  checked.  If  it  is 
equal  to  one,  then  the  program  goes  to  2310  to  make  the  move, 
then  back  to  40  which  calls  the  routine  to  reprint  the  board  before 
allowing  the  human  to  enter  a  move.  If  MM  equals  zero,  the 
program  continues  through  to  the  next  line  and — if  Q  is  less  than 
U — sends  action  back  to  180  where  Q  is  incremented  and  the 
search  continues.  If  Q  is  not  less  than  U,  it  means  all  the  pieces 
from  the  randomly  selected  first  one  have  been  checked  for 
captures. 

From  this  point  the  program  leaps  to  2180  (my  well-laid  plans  of 
having  a  clear  flow  through  the  program  were  frustrated  by  the 
demands  of  the  program  when  I  got  to  the  point  of  typing  it  into  the 
computer),  where  Q  is  set  to  a  random  number  between  zero  and 
four  (with  the  double  use  of  RND  serving  to  bias  the  numbers 
towards  the  low  end).  This  number  is  checked  to  make  sure  it  does 
not  exceed  the  number  of  pieces  available.  You  may  well  wish  to 
change  the  five  in  this  expression  to  a  higher  number  to  reduce  the 
predictability  with  which  the  computer  develops  certain  pieces 
first.  Any  number  up  to  and  including  nine  is  quite  workable.  Again 
one  is  added  to  this  in  line  2190  and  Z  is  set  equal  to  the  piece 
selected.  The  subroutine  destinations  will  indicate  where  the 
control  for  the  pieces  is  to  be  found: 

Pawn  -  2140 
Knight  -  1630 
Bishop  -  1420 
Rook  -  1180 
Queen  -  940 
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King  -  1710(onlyifthekingisnotincheckandthe 

random  number  chosen  is  less  than  .07, 
to  discourage  the  king  from  wandering) 

Once  the  computer  has  gone  to  the  relevant  subroutine,  it 
checks  to  see  if  the  flag  MM  is  still  zero.  If  it  is,  and  all  pieces  from 
the  randomly-chosen  start  piece  have  not  been  checked,  the 
program  goes  to  21 80  to  choose  a  new  piece.  If  MM  has  become 
one,  then  the  computer  goes  to  the  subroutine  from  231 0  to  make 
the  move,  then  returns  to  line  40  fortheboardtobe  reprinted,  prior 
to  the  computer  moving  again.  The  next  line  checks  the  value  of 
the  variable  UK  and  if  it  is  greater  than  eight,  knows  the  whole 
routine  has  been  checked  eight  times  and  no  suitable  move  has 
been  found,  so  goes  to  2060  to  concede  the  game. 

The  next  sequence  actually  makes  the  computer  move.  Line 
2310  rejects  a  king  move  nine  times  out  of  ten  if  the  king  is  not  in 
check,  by  resetting  MM  to  zero  and  going  back  to  21 80  to  look  for 
another  piece  to  move.  Line  2312  is  triggered  if  the  piece  to  be 
moved  is  a  pawn.  It  checks  that  the  program  is  not  trying  to  move  a 
pawn  backwards  and  stops  such  a  move  from  being  made.  If  the 
white  king  is  in  the  square  in  which  the  computer  was  going  to 
move,  the  human  is  in  check,  so  "Check! "  is  printed  on  the  screen, 
and  the  computer  returns  to  line  1 90  to  look  for  another  capture. 

If  the  contemplated  move  has  passed  these  hurdles  (and  this 
area  of  the  program  is  an  easy  one  to  modify  if  there  are  particular 
moves  in  the  program  which  you  want  to  discourage,  or 
completely  outlaw),  line  2315  makes  the  move,  and  lines  2320  to 
2330  tell  you  (using  an  apparently  very  complex  line  to  change  the 
array  number  into  board  coordinates  which  you  will  recognise)  the 
move  which  has  been  made.  Line  2340  returns  the  program  to  the 
loop  at  the  beginning  and  we  are  now  at  the  board  printout  section. 

Despite  the  routine  for  determining  danger  to  the  king,  the 
program  is  not  always  able  to  get  itself  out  of  check.  You  can 
consider  such  a  failure  a  wish  to  concede  (or,  if  you're  feeling 
generous,  allow  the  program  to  stay  in  check  for  one  more  move). 
Similarly,  if  the  program  moves  itself  into  check,  (a  very  rare 
possibility),  take  this  as  an  indication  that  the  computer  has 
resigned. 
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1©  REM  NEOPHYTE  CHESS 
20  PRINT  "PLEfiSE  ENGAGE  ";  FLA 
SH  1; "CAPS  LOCK";  FLRSH  0;  "  ,  THE 
N " , "PRESS  ENTER":  INPUT  R$:  CLS 
:  PRINT  ' '"Than*  ycu^  please  sta 
nd  by" 

30  GO  SUB  264-0;  GO  TO  60 
4-0  GO  SUB  2350 
50  GO  SUB  257© 

60  GO  SUB  2350 
7©  LET  MM=0:  LET  UK=0 
80  IF  R*="S"  THEN  STOP 
90  IF  R$s"X”  THEN  PRINT  RT  0,0 
;  FLRSH  1; "Exchanging  sides":  GO 
SUB  3128:  PRINT  RT  0,0;" 

":  LET  A$  =  "  ** 

100  IF  R*="P"  THEN  COPY 
110  DIM  T ( 16) :  LET  U=0:  PRINT  R 
T  B,0;  INK  RND+5+2;  PRPER  9;*'  PI 
ease  stand  by  " 

12©  FOR  0  =  1  TO  64-:  IF  R(St©))>  = 
BB  RND  RtS(©))<=RB  THEN  LET  U=U  + 
1:  LET  T  C  U)  =S  COi  :  IF  R<S<0)?=KB 
THEN  LET  KH=S (G) 

130  NEXT  O:  IF  U<3  THEN  GO  TO  2 
060 

[  14-0  GO  TO  580 

[  150  FOR  0=1  TO  U:  IF  R  (T  (O)  )  =KB 

i  THEN  LET  T  (©)  =T (U)  :  LET  T IU)  =KM 

i  160  NEXT  O 

t  170  LET  Q=INT  (RND *3)  *  C  (R$  =  "C") 

!  +1) 

j  180  IF  0<U  THEN  LET  0=0+1 

190  LET  2=T  CO)  :  GO  SUB  230 
20©  IF  MM=1  THEN  GO  SUB  2310:  G 
O  TO  4-0 

1  210  IF  ©<U  THEN  GO  TO  180 

I  220  GO  TO  2180 

230  BEEP  ,008, RND *30 *28:  IF  fi(Z 
) =OB  THEN  GO  SUB  820 
24-0  IF  R  CZ)  =RB  THEN  GO  SUB  106© 

25©  IF  R  CZ)  =88  THEN  GO  SUB  130© 

26©  IF  B  (Z)  =NB  THEN  GO  SUB  154-0 

270  IF  R  fZ)  =PB  THEN  GO  SUB  207© 

290  IF  R (X) =107  THEN  PRINT  RT  0 
,0,  FLRSH  l; "  Check  I  ", :  LET  ©  = 
0+1:  LET  HH=0:  GO  TO  190 
300  IF  X+9>88  THEN  GO  TO  320 
310  IF  R(X+9)<83  RND  R(X+9)>65 
RND  RND <.96  THEN  RETURN 
320  IF  X-11<11  THEN  GO  TO  34-0 
330  IF  R (X— 11) <83  RND  R(X-ll) >6 
5  RND  RND <.96  THEN  RETURN 
34-0  LET  RD=0 
350  LET  RY =1 
360  LET  RX=X+© CRY+RD) 
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370  IF  AX <11  OR  AX  >88  THEN  GO  T 
O  4-00 

3S0  LET  AP=A  (AX) 

390  IF  AP=G  OR  AP»R  AND  RND>.8 
OR  AP=B  AND  RND  >  •  5  THEN  RETURN 
4-00  LET  AY=AY  4*1 
4-10  IF  AY  <8  THEN  GO  TO  360 
4-20  LET  AD=AD+7 
4-30  IF  AD  <56  THEN  GO  TO  350 
4-4-0  LET  AY  =  1 
4-50  LET  flX=XfN  CAY) 

4-60  IF  AX  <11  OR  AX  >88  THEN  GO  T 
O  4-80 

4-70  IF  A  CAX)  =N  THEN  RETURN 

4-60  LET  AY  =AY  4-1 

4-90  IF  AY  <9  THEN  GO  TO  4-5© 

500  LET  AY  =1 

510  LET  AX=X+K(AY) 

520  IF  AX <11  OR  AX >88  THEN  GO  T • 
O  54-0 

530  IF  (A  (AX)  =K  OR  A  CAX)  =P)  AND 

RND  > . 1  THEN  RETURN 

54-0  LET  AY=AY*1 

550  IF  AY <9  THEN  GO  TO  510 

560  LET  HM=1 

570  RETURN 

580  LET  Z=KM 

590  LET  Y  =0 

600  LET  Y=Y+1 

610  LET  X=Z+NCY) 

620  IF  X<11  OR  X  >88  THEN  GO  TO 
64-0 

630  IF  A  CX)  =N  THEN  GO  TO  1710 

640  IF  Y  <8  THEN  GO  TO  600 

650  LET  D=0 

660  LET  Y  =  1 

670  LET  X=Z+QCY+D) 

680  IF  X<11  OR  X  >88  THEN  GO  TO 

730 

690  IF  A  CX)  =B  OR  A  CX)  =Q  OR  A  CX) 
=R  THEN  GO  TO  1710 
700  IF  A  CX)  <  >E  THEN  GO  TO  730 
710  LET  Y=Y+1 
720  IF  Y<8  THEN  GO  TO  670 
730  LET  D=D+7 

740  IF  D  <49  THEN  GO  TO  670 

750  LET  X=Z*11 

760  IF  X  >88  THEN  GO  TO  780 

770  IF  A  CX) =P  THEN  GO  TO  1710 

780  LET  XsZ-li 

790  IF  X<11  THEN  GO  TO  150 

800  IF  A  CX) =P  THEN  GO  TO  1710 

810  GO  TO  150 

820  LET  D*0 

830  LET  Y  =  1 

840  LET  X=Z4«<Y+D) 


I 
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850  IF  X<11  OR  X  >88  THEN  GO  TO 
010 

860  IF  R(X)s4S  OR  RtX)>=BB  RND 
R (X)  <  =RB  THEN  GO  TO  910 
870  IF  RtX)>sB  RND  fi(X) <=R  THEN 
GO  SUB  290:  IF  MMol  THEN  GO  TO 
910 

880  IF  MM=1  THEN  RETURN 
890  LET  Y  =Y+1 
900  IF  Y<8  THEN  GO  TO  84-0 
910  LET  D-D-b? 

920  IF  D  <49  THEN  GO  TO  830 

930  RETURN 

940  LET  0=0 

950  LET  Y=1 

960  LET  X=Z+0CY+D) 

970  IF  X<11  OR  X  >88  THEN  GO  TO 
1030 

980  IF  R  tX>  <  >E  THEN  GO  TO  1030 
990  IF  RND >.5  THEN  GO  SUB  290: 
IF  MM  =0  THEN  GO  TO  1030 
1000  IF  HM=1  THEN  RETURN 

1010  LET  Y=Y+1 

1020  IF  Y  <8  THEN  GO  TO  960 

1030  LET  D=D+7 

1040  IF  D  <49  THEN  GO  TO  95© 

1050  RETURN 

106©  LET  D=0 

1©70  LET  Y=1 

106©  LET  X=Z+R(Y+DJ 

1090  IF  X<il  OR  X  >88  THEN  GO  TO 

115© 

1100  IF  RCX>=42  OR  fl  CX)  >  =BB  RND 
R(XJ  <  =RB  THEN  GO  TO  1150 
1110  IF  R  CX>  > =B  RND  RCXJ<=R  THEN 
GO  SUB  290:  IF  MM=0  THEN  GO  TO 
115© 

1120  IF  MM=1  THEN  RETURN 
1130  LET  Y=Y+1 

1140  IF  Y  <8  THEN  GO  TO  1080 
115©  LET  D=D+7 

1160  IF  D  <28  THEN  GO  TO  1070 

1170  RETURN 

1180  LET  D=0 

1190  LET  Y  =1 

1200  LET  X=Z+R(Y+D> 

1210  IF  X<11  OR  X  >88  THEN  GO  TO 
1270 

1220  IF  R (X)  <  >E  THEN  GO  TO  127© 
1230  IF  RND  < • 1  THEN  GO  SUB  290 
1240  IF  MM=i  THEN  RETURN 
1250  LET  Y=Y+1 

1260  IF  Y  <8  THEN  GO  TO  1200 
1270  LET  D=D+7 

1280  IF  D  <28  THEN  GO  TO  1190 
1290  RETURN 
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1300  LET  D  =0 
1310  LET  Y=1 
1320  LET  X=Z+B(Y+D} 

1330  IF  X<11  OR  X  >88  THEN  GO  TO 
1300 

134-0  IF  R  (X)  =4-2  OR  R(X>>=BB  RND 
R(X) <=RB  THEN  GO  TO  1390 
1350  IF  fl (X)  >  =B  RND  R(X)<=R  THEN 
GO  SUB  290:  IF  HH<>1  THEN  GO  TO 
1390 

1360  IF  MM=1  THEN  RETURN 
1370  LET  Y=Y+1 

13B0  IF  Y  <8  THEN  GO  TO  1320 
1390  LET  D=D+7 

14-00  IF  D  <28  THEN  GO  TO  1310 

14-10  RETURN 

14-20  LET  D=0 

14-30  LET  Y  =  1 

14-4-0  LET  X=Z+BtY+D> 

14-50  IF  X<11  OR  X >88  THEN  GO  TO 
1510 

14-60  IF  R(X)<>E  THEN  GO  TO  1510 
14-70  IF  RND >.05  THEN  GO  SUB  290: 

IF  HMol  THEN  GO  TO  1510 
14-80  IF  HH=1  THEN  RETURN 
14-90  LET  Y=Y  +  1 

1500  IF  Y  <8  THEN  GO  TO  14-4-0 
1510  LET  D=D*-7 

1520  IF  D  <28  THEN  GO  TO  14-30 
1538  RETURN 
154-0  LET  Y=i 
1550  LET  X=Z+N(Y) 

1560  IF  X<11  OR  X  >88  THEN  GO  TO 
1600 

1570  IF  R  tX)  =4-2  THEN  GO  TO  1600 

1580  IF  R  ( X  J  >  =B  RND  R(XJ<=R  THEN 
GO  - SUB  29© 

1590  IF  MM=1  THEN  RETURN 
1600  LET  Y=Y  +  1 

1610  IF  Y  <  9  THEN  GO  TO  1550 
1620  RETURN 
1630  LET  Y  =0 

164-0  LET  X=Z+NtINT  tRND*8+l)  ) 
1650  IF  X<11  OR  X  >88  THEN  GO  TO 
164-0 

1660  IF  R  (X)  =4-2  THEN  GO  TO  164-0 
1670  LET  Y=Y+1 

1680  IF  R (X) =E  THEN  GO  SUB  290 
1690  IF  MM  =  1  OR  Y  >20  THEN  RETURN 

1700  GO  TO  1640 
1710  LET  YK=1 
1720  LET  Z=KM 

1730  LET  X=Z+K(YK):  LET  X1=X 
1740  IF  X<11  OR  X  >88  THEN  GO  TO 
2030 
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1750  IP  ft  CXJ  =4-2  OR  ft  CXJ  >65  fiND  ft 

CXJ  <83  THEN  GO  TO  2030 

1760  IP  ft (X) >97  fiND  ft CXJ <115  THE 

N  GO  TO  2030 

1770  LET  Z=X 

1760  LET  Y  =0 

1790  LET  Y-Y  +  l 

1800  LET  X=Z+NCYJ 

1810  IP  X<11  OR  X  >88  THEN  GO  TO 
1830 

1820  IP  ft  CXJ  =N  THEN  GO  TO  2030 

1830  IP  Y  <8  THEN  GO  TO  1790 

184-0  LET  D=0 

1850  LET  Y  =1 

1860  LET  X=Z+QCY+DJ 

1870  IF  X<11  OR  X> 88  THEN  GO  TO 
1920 

1880  IP  ft  CXJ  =B  OR  RCXJ=Q  OR  ft CXJ 
=R  THEN  GO  TO  2030 

1890  IF  ft  CXJ  <  >E  THEN  GO  TO  1920 
1900  LET  Y=Y  +  1 

1910  IP  Y  <8  THEN  GO  TO  I860 
1920  LET  D=D+ 7 

1930  IP  D  <4-9  THEN  GO  TO  I860 
194-0  LET  X=Z+11 

1950  IF  X >88  THEN  GO  TO  1970 
1960  IP  ft  CXJ  =P  THEN  GO  TO  2038 
1970  LET  X=Z-11  _  „  _ 

1980  IP  X<11  THEN  GO  TO  2008 
1990  IP  ft  CXJ  =P  THEN  GO  TO  2030 
2000  LET  X=X1:  LET  Z=KM 
2010  LET  MM=1 

2020  GO  SUB  2310:  GO  TO  4-0 
2030  LET  YK=YK+1 
204-0  LET  Z=KM 

2050  IP  YK <9  THEN  GO  TO  1720 
2860  PRINT  RT  8,0;  PLfiSH  U "I  CO 
ncede,  chanp! STOP 
207©  LET  X=Z+9 

2880  IP  ft  CXJ  >  =B  fiND  ft  CXJ  <  =R  THEN 
LET  MM=1:  IF  ft CXJ =P  fiND  RND<.2 
THEN  LET  HM=0 
2090  IP  MH=i  THEN  RETURN 
2100  IP  Z=12  THEN  RETURN 
2110  LET  X  =Z - 1 1 

2120  IP  ft  CXJ  >  =B  fiND  ft  CXJ  <  =R  THEN 
LET  MM=1:  IP  ft CXJ =P  ftND  RND<.2 
THEN  LET  HH=0 
2130  RETURN 

214-0  IP  Z— 10*-  C INT  CZX10J  J  =7  fiND 
RCZ-1J=E  ftND  ftCZ— 2J=E  fiND  CftCZ-1 
3J  =E  OR  ftCZ— 13J  =4-2 J  ftND  CfiCZ+7J  = 
E  OR  ft  CZ+7J  =4-2  J  THEN  LET  X  =Z  -2 : 


LET  HM=1:  RETURN 

2150  IP  ft  CZ  — 1J  =E  fiND  ft  CZ— 12J  <98 
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RND  RCZ+8) <98  THEN  LET  X=Z-1:  LE 
T  HM=1:  RETURN 

2160  IF  RND  <  « 05  RND  R (Z-l)  =E  THE 
N  LET  X=Z-1 :  LET  HM=1 
2170  RETURN 

2180  LET  Q=INT  (RND*RNt>i5)  :  IF  © 
>U  THEN  GO  TO  2180 
2190  IF  ©<U  THEN  LET  ©=©+l 
2200  LET  Z=Tf©> 

2210  IF  ft  CZ)  =PB  THEN  GO  SUB  214-0 

2220  IF  fi (Z) =NB  THEN  GO  SUB  1630 

2230  IF  ft  (Z)  =BB  THEN  GO  SUB  14-20 

224-0  IF  ft  tZ)  =RB  THEN  GO  SUB  1180 

22S0  IF  ft  fZ)  =©B  THEN  GO  SUB  94-0 

2260  IF  fi (Z) =KB  RND  ft*<>"C"  RND 
RND <.07  THEN  GO  SUB  1710 
2270  IF  MH =0  RND  ©<U  THEN  GO  TO 
2190 

2280  IF  MM  =  1  THEN  GO  SUB  2310:  G 
O  TO  4-0 

2300  LET  UK  =UK  +1 :  IF  UK >8  THEN  G 

O  TO  2060 

2305  GO  TO  2180 

2310  IF  ft  CZ)  =KB  RND  FIND 

RND > . 1  THEN  BEEP  .05,-3:  LET  HM  — 
0:  GO  TO  2180 

2312  IF  ft  CZ)  =PB  RND  (  CX-10*INT  t 
X/10) >Z-10*INT  (Z/10)  OR  RBS  CX- 

Z) >11) )  THEN  LET  HH=0:  GOTO  218 

0 

2314-  IF  ft  CX)  =K  THEN  PRINT  RT  0,0 
Check!  LET  MH=0 

:  LET  U=U+1 :  GO  TO  190 
2315  LET  ft  CX)  =fi  (Z)  :  LET  ft  (Z)  =E 
2320  PRINT  RT  0,0; "I  moved  fro* 

5*  . 

2330  LET  FZ=INT  tZxl0) :  PRINT  CH 
R*  CFZ+64-)  ;  Z-10*FZ;  •*  to  ;  LET 
FX  =  INT  (X/10)  :  PRINT  CHR«  CFX+64- 
) ;X-10*FX 
234-0  RETURN 

2350  IF  MM  =0  THEN  GO  TO  2370 
2360  BEEP  1 ,  RND  If  10:  BEEP  1,10+RN 
Dfl0:  BEEP  1 , —RND *10 
2370  PRINT  RT  0,0;  ** 

**;  RT  4-,0;  ;  GO  SU 

B  24-50 

2380  FOR  X  =8  TO  1  STEP  -1 
2390  PRINT  TftB  10;  INUERSE  I;  X; 
INVERSE  0; 

24-00  FOR  Y  =10  TO  80  10 

24-10  IF  RCY  +  1)  =PB  THEN  LET  fl  CY+1 
>  =©B 

24-20  IF  ft  CY  +8)  =B  THEN  LET  RCY-FB) 
=© 
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2430  PRINT  CHR*  R  (X+Y)  J 

244-0  NEXT  Y:  PRINT  INVERSE  1;X; 

NEXT  X:  LET  MM =0 

2450  PRINT  TRB  10;  INVERSE  1; "  R 
BCDEPGH  " 

2450  RETURN 
2470  LET  Z  =KM 
2450  LET  QK=0 
249©  LET  M=Z+K (OK) 

2500  IP  R  CliJ  =42  OR  R  (H3  >55  RN0  H 
CliJf  <83  OR  Hli=©  THEN  GO  TO  2540 
2518  LET  X  =H 
252©  LET  KM=X 
2530  RETURN 

254©  IF  OK <8  THEN  GO  TO  2490 
2550  IP  R$<  >"Clt  THEN  RETURN 
2550  GO  TO  205© 

2570  INPUT  " <PRGM  {LETTER,  NUMBE 
R?)  R$:  BEEP  .©©8,-3 

2580  IP  LEN  R*<>2  THEN  GO  TO  257 
© 

2590  INPUT  "PROM  ” ;  CR*3  ;  ,e  TO?  **; 
BS:  BEEP  .008,-10 

2595  IP  LEN  B*<>2  THEN  GO  TO  259 
© 

2500  LET  X=10*  (CODE  R$-543  fVRL  R 
$  (23 

2510  LET  Y  =10 * (CODE  B$-S4)  +URL  B 
$  (23 

2520  INPUT  "Enter  C  -  cKccfc 

P  -  to  print  b 
oard  X  -  to  exchang 

£  sides  S  -  to  stop  93 

me  ENTER  -  to  continu 

e  “;R* 

2525  IP  R(YJ>=75  RND  RCY3<=82  TH 
EN  GO  SUB  3318 

253©  BEEP  .008,-3:  LET  ft(Y) =fl(X) 

:  LET  RtX> =45:  RETURN 

254©  RRNOOHIZE  :  LET  MM=0:  LET  R 

^_i*M 

2650  DIM  0(99);  DIM  A (28) :  DIM 
(28):  DIM  N (8) ;  DIM  0(56):  DIM 
(8):  DIM  Z(88):  DIM  5(64.);  DIM 
(16) 

2660  LET  P=112:  LET  R  =  114-:  LET 
=110:  LET  B=98:  LET  0=113:  LET 
=  107:  LET  E  =4-6 
2670  LET  PB=80:  LET  RB=82:  LET  N 
B=78:  LET  BB=66:  LET  QB=B1:  LET 
KB  =75 

2680  FOR  Z=1  TO  99:  LET  R(Z)=4-2: 
NEXT  Z 

2690  FOR  Z=i  TO  64-:  READ  X:  READ 
Y:  LET  A(X)=Y;  NEXT  Z 


XZ  HXIfl 
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2700  DRTR  18,82,28,78,38,66,4-8,6 
1 

2710  DflTR  58,75,68,66,78,78,88,8 
2 

2720  DRTR  17,80,27,80,37,80,4-7,8 
0 

2738  DOT 2  57,80,67,80,77,80,87,8 
0 

274-0  DOTR  16 , 4-6 , 26 , 4-6 , 36 , 4-6 , 4-6 , 4- 
6 

2750  DRT»  56 , 46  ^©6 , 4-6 , 76 , 4-6  ,  86  ,  4- 
6 

2760  DOTR  15,46,25,4-6,35,46,4-5,4- 
6 

2770  DOTR  55,46,65,46,75,46,85,4 

2780  DRTR  14,46,24,46,34,46,44,4 

2720  DRTR  54,46,64,46,74,46,84,4 
6 

2808  DRTR  13,46,23,46,33,46,43,4 
6 

2810  DRTR  53,46,63,46,73,46,83,4 
6 

2820  DRTR  12,112,22,112,32,112,4 
2,  112 

2830  DRTR  52,112,62,112,72,112,8 

2,112 

2848  DRTR  11,114,21,110,31,98,41 
1 13 

2856  DRTR  51,107,61,96,71,110,61 
,  114 

2860  FOR  Z=1  TO  8:  RERD  N (Zi :  NE 
XT  Z 

2870  DRTR  19 , -19 ,21,-21,-8,8,12, 
-12 

2880  FOR  Z=i  TO  28:  RERD  R <ZJ :  N 
EXT  Z 

289©  DRTR  10,20,30,40,50,60,7© 
29©0  DRTR  -1, -2, -3, -4, -5, -6, -7 
2910  DRTR  -10,-20,-30,-40,-50,-© 
0,  -7© 

2920  DRTR  1,2, 3, 4, 5, 6, 7 

2930  FOR  Z=1  TO  28:  RERD  8 CZJ :  N 

EXT  Z 

2940  DRTR  -11 , -22, -33, -44 , -55 , -6 
8,  -77 

2950  DRTR  11,22,33,44,55,66,77 
2960  DRTR  9,18,27,36,45,54,63 
2970  DRTR  -9,-18, -27 , -36 , -45 , -54 
,  -63 

2980  RESTORE  2890 

2990  FOR  Z=1  TO  56:  RERD  O(Z) :  N 
EXT  Z 

3000  FOR  Z=i  TO  8:  RERD  K (ZJ :  NE 
XT  Z 
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3010  DflTfi  1,11,9,10,-10,-9,-11^- 
1 

3020  FOR  2=1  TO  64-:  READ  S  (2)  :  N 
EXT  2 

3030  DATA  4-6,56,36,66,47,57,45,5 
5 

304-0  DRTR  37,67,35,65,23,73,27,2 
-? 

3050  DATA  4-4-,  54-,  26, 76, 33, 63,  17,3 

3060  DATA  18, 83, 34, 64-,  25, 75, 16, 3 
t> 

3070  DATA  48,24,74,15,85,14,84,4 

3 

3080  DRTR  53,33,63,23,73,52,42,6 
2 

3090  DRTR  32,83,13,72,22,12,82,4 
1 

3100  DATA  51,31,61,21,71,11,81,5 
3 

3110  PAPER  1:  BORDER  1:  INK  7:  C 
L.S  :  RETURN 

3120  FOR  2  =  11  TO  33:  LET  2  fZ)  =A i 
ZJ ;  NEXT  2 

3130  FOR  2  =  11  TO  38.  LET  X  =2-10  * 
INT  iZxl©J 

3140  IF  X=0  OR  X  =9  THEN  GO  TO  31 
60 

3150  LET  R CZJ =Z CZ+9-X*2i 
3160  NEXT  2 

3170  FOR  2  =  11  TO  S3.  LET  M=R  CZJ 
3180  IF  M>=B  THEN  LET  R (2) =R (2) * 
P8  -P 

3190  IF  M  < =RB  RND  M > =BB  THEN  LET 
R (23  =R  £Z3  -PB+P 
3200  NEXT  Z 
3210  RETURN 

3310  LET  COMMENT =INT  (RNDf4) :  Bu 
RDER  RND*5+2:  GO  SUB  333©+l©#COM 


3328 

BEEP  1 

,1: 

BEEP  1,2: 

BEEP 

1  , 

—3 

3338 

BORDER 

1: 

RETURN 

334-8 

PRINT 

RT 

8,0; “Ue l l 

done  "  : 

G 

O  SUB  33"78 : 

RETURN 

3350 

PRINT 

RT 

0,0; "Good 

move " : 

G 

O  SUB  3370:  RETURN 
3360  PRINT  RT  0,0; “Got  ®e * “ 
3370  FOR  1=1  TO  10:  BEEP  «©5,I: 
NEXT  I 

3380  PRINT  RT  0,0,'" 

RETURN 
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Here  are  some  board  printouts  of  the  early  stages  in  a  game 
against  NEOPHYTE  CHESS: 


Position  reached  in  the  early  middle  stages  of  another  game: 


It  is  possible  to  modify  the  program  so  that  it  'plays  against 
itself',  by  getting  it  to  exchange  sides  after  every  move.  It  will  also 
print  out  a  permanent  copy  of  the  game  by  printing  the  board  after 
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every  second  move.  To  turn  the  program  into  'auto-chess',  modify 
it  so  the  start  reads  as  follows: 


10  REM  NEOPHYTE  CHESS 
IS  LET  PR  =  1 

20  PRINT  "PLEASE  ENGAGE  FLA 

SH  1;  "CAPS  LOCK**;  FLASH  0;  ”  ,  THE 
N“, "PRESS  ENTER":  INPUT  A$:  CLS 
:  PRINT  ' '"Thank  you,  please  sta 
nd  by” 

3©  GO  SUB  264-0 :  GO  TO  60 
4-0  GO  SUB  2350 
7©  LET  MM=0:  LET  UK  =0 
60  IF  A$="S"  THEN  STOP 
SS  LET  A.$  =  "X” 

30  IF  A$="X"  THEN  PRINT  AT  0,0 
;  FLASH  1; "Exchanging  sides";  GO 
SUB  3120:  PRINT  AT  0,0;" 

LET  A$  =  "" 

1©0  IF  PR  =0  THEN  COPY  :  LET  PR  = 
1:  GO  TO  110 
105  LET  PR  =0 

If  you  do  not  want  a  printout,  delete  lines  15,  100  and  1 05. 


Here  is  the  start  of  one  game  played  by  the  modified  program: 
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By  the  way,  running  auto-play  games  in  this  way  is,  as  I  said 
earlier,  a  very  good  way  to  debug  the  program,  as  eventually  most 
of  the  GO  TO  and  GO  SUB  destinations  will  be  tested.  Cut  out  the 
printout  facility  if  you  like,  and  just  let  the  computer  run  all  day, 
playing  game  after  game.  If  it  stops  at  any  point  (other  than  to 
concede  to  itself),  you'll  know  more  or  less  where  a  program  error 
has  occurred. 

The  program  was  modified  slightly  further  to  enable  it  to  choose 
to  print  out  board  positions  from  time  to  time,  rather  than  after 
every  second  move.  To  get  these  random  printouts,  the  start  of  the 
program  should  read  as  follows: 

10©  IF  PR  =0  THEN  LET  PR= 1 
101  IF  PR  =  i  AND  RND  < « 1  THEN  COP 
Y  :  GO  TO  11© 

105  LET  PR  =© 


Here  is  a  selection  of  'snapshots'  of  one  game  produced  in  this 
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Check  ! 
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If  you'd  like  to  read  more  about  chess  and  computer  chess  there 
are  a  number  of  relevant  books  and  articles,  including: 

Intelligent  Computer  Games  Levy,  D.,  Creative  Computing,  November  1980  (pp. 
158-163)  and  December  1980  (pp.  208-213} 

Machine  Intelligence :  A  Function  of  Human  Ingenuity  Georgiou,  C.J.,  Creative 
Computing,  June  1982,  (pp.  124-135) 

TheSargon  Chronicle  Ehara,  T.H.,  Creative  Computing,  May  1980  (pp.  42-44) 

World  Chess  Championship  Computer  Ehara  T.H.,  Creative  Computing,  January 
1979  (pp.  134-136) 

Attention,  Chess  Phreaks!  Palenik,  L.,  Creative  Computing,  January  1979  (p.  78} 

Tumult  and  the  Toronto  Tournament  Dowhal,  D.,  Personal  Computing,  May  1978 
(pp.  98-1 13) 

A  Romanian  Rhapsody  (source  of  the  story  of  Felix  at  the  start  of  this  section), 
Friedberg,  U.,  Personal  Computing,  October  1978  (pp.  76-88) 

Sargon  vs.  Microchess  Martellaro,  J.,  onComputing,  Winter  1979  (pp.  26-30) 

Programming  a  Computer  for  Playing  Chess  Shannon,  C.E.,  Philosophical 
Magazine,  vol.  41  (7th  series)  (pp.  256-275) 

Chess  Skill  in  Man  and  Machine  Frey,  Peter  W.  (Springer  Verlag.  1977) 

Technique  in  Chess  Abrahams,  G.,  (Dover  Publications  Inc.,  USA,  1973) 

The  Complete  Book  of  Chess  Eiorowitz,  I  .A.  and  Rothenberg.e  P.L.,  (Collier 
Macmillan,  1969) 
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Adventure/Simulations 

REVENGE  OF  CASTLE  DREAD 

No  collection  of  games  programs  would  be  complete  without  an 
Adventure.  I  decided  that  the  Adventure  in  this  book  should  be  one 
of  the  major  programs,  so  wrote  the  rather  formidable-looking  (in 
terms  of  its  length)  REVENGE  OF  CASTLE  DREAD.  The  credit  for 
producing  the  first  computer  Adventure  program  goes  to  Crowther 
and  Woods,  who  wrote  their  program,  just  called  Adventure,  on 
the  Stanford  University  mainframe.  The  computer  supported  a 
number  of  terminals  on  a  time-sharing  system  and  the  output  was 
typed  onto  long  rolls  of  paper  with  a  unit  rather  like  a  Telex 
machine. 

Adventure  became  immensely  popular,  and  pirated  copies  were 
soon  up  and  running  across  America  and  eventually  in  Britain  as 
well.  As  more  and  more  computer  buffs  got  their  hands  on  the 
program,  they  modified  and  improved  it,  eventually  shaping 
versions  which  were  radically  different  from  the  original.  However, 
twenty  years  after  Adventure  was  first  up  and  running,  some  US 
software  companies  still  sell  a  program  which  is  billed  as  'the 
original  Adventure'. 

Writing  an  Adventure  program  is  a  fascinating  exercise.  In 
essence  a  self-contained,  logically-consistent  universe  is  invented 
and  mapped.  By  'logically-consistent'  I  mean  that  in  a  properly 
constructed  Adventure  program  the  player  can  cross  a  bridge  to  go 
along  a  road  and,  on  walking  back  down  the  road,  will  find  the 
bridge  still  there,  or  some  convincing  reason  why  it  is  not  there, 
such  as  'The  aliens  from  Epsilon  IV  took  it  back  to  their  museum 
planet  with  a  matter-transporter'.  Random  adventures  are  frus¬ 
trating  and  offer  few  lasting  challenges  to  the  player. 

In  REVENGE  OF  CASTLE  DREAD  the  action  takes  place  within 

castle  where  there  are  a  number  of  monsters,  including  'an 
angry  warlock',  'a  fire-breathing  Fearbringer'  and  the  loathsome 
'Guardian  of  the  Black  Lagoon'  who  wander  about  the  castle  during 
the  game  and  must  be  fought  (although  you  can  attempt  to  flee 
if  you  like,  with  a  50  per  cent  chance  of  succeeding).  In  addition, 
there  are  up  to  four  chests  which  hold  good  and  bad  surprises,  a 
bottle  containing  a  magic  potion  which  may  be  beneficent  or  evil, 
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and  so  on.  It  is  unlikely  that  you  will  meet  all  the  monsters  and 
surprises  in  every  game. 

You  will  not  be  given  a  map  of  the  castle.  Part  of  the  fun  of 
Adventure-gaming,  whether  it  is  with  a  computer  or  in  one  of  the 
role-playing  sorcerer/dungeon  games,  is  trying  to  deduce  the 
spatial  relationships  of  the  various  'rooms'  encountered  when 
wandering  about  the  environment.  The  castle  in  this  program  was 
mapped  in  some  detail,  and  I've  made  sure  that  the  clues  given  to 
you  in  the  PRINT  statements  adhere  accurately  to  the  relationship 
between  the  rooms.  This  was  done  to  both  encourage  you  to  map 
the  castle  as  you  go  through  it,  and  to  teach  by  example  how 
'adventure  environments'  can  be  constructed.  Once  you  feel  you 
have  a  map  which  corresponds  reasonably  closely  to  the  one 
encoded  in  this  program,  you  can  'wander  around'  the  castle  and 
check  your  map. 

The  point  of  the  game  is  simple  and  relates  to  one  twist  I've 
included  to  make  the  map  construction  a  little  more  difficult  than  it 
might  otherwise  be.  All  instructions  within  the  program  are  given  in 
terms  of  directions  (north,  south,  east  and  west)  and  all  doors  face 
one  of  these  four  directions.  You  should  start  your  map-making  by 
putting  the  four  directions  at  the  top  of  your  sheet  of  paper.  You 
start  the  adventure  at  the  top  of  the  paper  facing  down  it  (that  is, 
facing  south).  The  first  statement  you  see  includes  the  following: 


You  are  at  the  entrance  to  an 
ancient.,  forbidding  —  look,  ing 
cast  l e  .  You.  are  s_tandlns  art 
the  north  side  of  the  castle., 
and  as  you  took,  south 
towards  the  crumbling 
structure,  you  notice  the 
entrance  portal  is  open 
and  unguarded 


Uhat  do  you  want  to  do  non? 


The  last  line  'What  do  you  want  to  do  now?'  follows  every 
description  of  the  environment  (apart  from  a  few  questions,  such 
as  'Do  you  want  to  drink  the  potion?'  which  demand  a  "Y"  [yes]  or 
"N"  [no]  answer)  and  can  be  answered  with  one  of  seven  answers. 
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Enterthis:  And  the  computer  will  understandyou  mean 

this: 

"N"  Move  North 

"S"  MoveSouth  (theansweryou  mustgiveto 

the  first  frame) 

"E"  Move  East 

"W"  Move  West 

"FI"  Fight 

"FL"  Flee 

Any  other  answer  at  this  point  will  simply  cause  the  screen  to 
clear,  and  it  will  then  be  reprinted.  ("Q"  can  be  also  used  to  quit  the 
game  at  any  point.) 

Role-playing  games  played  with  humans  and  a  referee 
('Dungeon  Master')  generally  follow  certain  conventions  which 
dictate  that  a  character's  power  and  personality  be  determined  at 
the  beginning  of  a  game  by  rolling  a  number  of  dice  and  reading  the 
characteristics  (like  'shrewdness'  or  whatever)  from  a  table.  When 
two  characters  meet  in  conflict  (dungeon-players  call  this 
interaction,  the  high  point  of  the  game,  the  melee),  a  further  set  of 
dice-rolling  and  table-consultation  is  needed  to  determine  the 
result  of  the  combat. 

To  simplify  the  system  so  that  you  are  not  overwhelmed  with 
complex  rules  to  understand  before  you  can  enjoy  this  program, 
I've  stuck  to  the  accepted  conventions  but  have  ensured  that 
the  Spectrum  does  ail  the  work,  both  of  'generating'  your  own 
personality  and  that  of  the  monsters  you  meet  as  well  as  resolving 
any  physical  clashes  you  may  have. 

The  story-line  and  point  of  the  game  is  simple.  You,  as  a  well- 
known  intrepid  explorer,  have  come  across  this  crumbling  ruin  of  a 
castle.  Being  of  intemperately  curious  disposition,  you  go  through 
the  entrance  portal  in  the  north  wall  which  you  have  noticed  is 
open.  Once  you  enter  the  castle  through  it,  you'll  find  you  cannot 
leave  through  it.  You  must  explore  the  castle  and  attempt  to  find 
another  exit.  As  you  stand  in  the  entrance  hall  'which  is  hung  with 
rich  fabrics'  you  remember  an  old  legend  which  is  told  about  this 
castle.  The  last  owner,  300  years  before,  was  a  powerful  wizard 
who  with  his  dying  strength  created  a  legion  of  horrors  to  guard  his 
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home  from  intruders.  Apart  from  the  northern  portal,  which  is  now 
forever  magically  sealed,  the  only  way  out  of  the  castle  is  via  the 
Black  Lagoon  which  is  underneath  the  castle  but  is  reached  from 
within  it  by  an  ordinary-looking  door.  It  is  rumoured  that  the  wizard 
sought  to  protect  his  castle  even  more  by  creating  an  unpleasant 
creature  of  whom  nothing  is  known  except  his  title,  The  Guardian 
of  the  Black  Lagoon. 

Your  personality  in  this  game  is  encapsulated  by  three  'attri¬ 
butes',  magical  power,  strength  and  wisdom.  Each  creature 
shuffling  through  all  eternity  through  the  decaying  rooms  of  the 
castle  is  also  endowed  with  these  three  attributes.  The  current 
state  of  your  personality  appears  on  the  screen  as  follows: 


When  you  meet  a  monster  and  you  decide  to  battle  with  him  (or 
attempt  to  flee  and  are  unable  to  do  so),  you  fight  in  terms  of  one 
attribute  only,  but  you  can  choose  which  one.  Generally,  the 
greater  the  difference  in  your  favour  between  your  particular 
attribute  score  and  that  of  the  monster,  the  more  likely  you  are  to 
win.  Therefore,  if  your  MAGIC  was  20,  and  the  MAGIC  of  the 
monster  was  only  4,  and  the  difference  between  other  attributes 
was  less,  you'd  be  advised  to  choose  MAGIC  for  your  melee. 


You  are  in  the  entrance  hall. 
Which  is  hunq  With  rich 
fabrics.  Doors  Lead  to  the 
east  and  the  south.,  and  there 
is  an  open  portal  to  the 
wes  t 

The  room  contains  a  fire- 
breathing  Fearbringcr.  His 
wisdom  is  IS ,  while  he 
has  a  strength  rating  of 
11,  and  his  magic  skill 
i  s  20 


Uhat  do  you  want  to  do  now? 
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This  small  room.,  which 
features  an  ornate  sculpture 
of  the  moon  goddess  on  a 
pedestal  in  the  north-east 
corner,  is  the  Royal 
Presence  Chamber.  Doors  lead 
to  the  south,  the  west  and 
to  the  east 

in  front  of  you  is  a  chest 
labelled  with  a  large  «  l 

Will  you  open  it  (Y  or  N)  T 


Now  Wisdom: 

Yo U :  15  Gu ardian :  20 

The  difference  is  5 
and  the  Guardian  leads 


This  round  carries  a  penalty 
of  31  attribute  points 

fin d  you  lose  31  wisdom  points 


fit  the  e n d  of  the  crucial 
battle  you  have: 

MAGIC:  11 

STRENGTH :  5 

WISDOM:  0 

find  you've  made  it,  O  hero  of 
these  dark  and  dangerous 
times,  i  dub  thee  tim 


Don't  start  getting  worried  at  this  point  if  it  already  seems  to  be 
getting  complicated.  The  program  does  nearly  all  the  work  for  you 
and  guides  you  through  the  game,  ignoring  or  rejecting  bad  inputs. 

Each  fight  gives  you  the  chance  of  increasing  the  attribute  with 
which  you're  competing  or  of  having  to  pay  for  being  'wounded'  by 
losing  attribute  points.  Lose  all  your  points,  and  the  game  will 
terminate.  You  need  to  acquire  as  many  attribute  points  as  possible 
for  the  Final  Encounter.  When  you  discover  where  the  Black 
Lagoon  is  located  (and  -  to  frustrate  you  slightly-  it  can  be  in  one  of 
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two  locations,  so  your  maps  are  not  1 00%  transferable  from  game 
to  game)  you'll  have  to  engage  in  three  battles,  one  in  each 
attribute,  with  The  Guardian  of  the  Black  Lagoon. 

Some  of  the  chests  you'll  find  littering  the  house  may  contain 
'dragon's  gold'  and  it  is  worth  acquiring  this,  because  it  can  be  used 
to  buy  additional  attribute points  after  you've  met  the  Guardian,  but 
before  you've  had  to  fight.  You  must  come  out  of  this  f  inal  series  of 
battles  with  at  least  10  attribute  points  altogether  to  survive. 

Each  melee  works  as  follows.  After  you've  selected  the  attribute 
with  which  you  wish  to  wage  war,  the  computer  will  work  out  and 
display  the  difference  between  your  scores.  If,  for  example,  you'd 
decided  to  battle  with  WISDOM  and  your  wisdom  score  was  15 
while  the  monster's  was  2,  the  computer  would  print  up  (line  5240) 
"The  difference  is  13",  followed  by  "and  you  have  the  advantage", 
meaning  your  score  is  the  highest.  Next,  in  keeping  with  role- 
playing  games  which,  as  I  pointed  out  before,  engage  in  much  dice¬ 
rolling,  a  six-sided  die  is  rolled  and  the  number  that  comes  up  is  the 
'cost'  of  the  encounter.  A  random  number  is  generated  between 
one  and  the  difference  of  the  two  scores.  This  is  then  compared 
with  your  attribute  score,  and  the  monster's  score.  The  winner  is 
the  one  whose  attribute  point  is  closest  to  the  difference.  You  may 
wish  to  change  this  so  the  winner  is  the  one  furthest  away  from  the 
random  number.  If  the  difference  between  attribute  scores  is  just 
one,  the  random  number  must  be  one,  so  the  player  with  the 
lowest  attribute  score  will  win  (there  is  a  hint  in  this  line  for  the 
observant  which  may  help  you  win  more  than  your  fair  share  of 
melees).  I'll  leave  it  to  you  to  work  out  who  wins  if  the  sttribute 
points  are  identical. 

Now,  winning  and  losing  are  two  quite  different  things  in  this 
game.  The  cost  and  rewards  depend  upon  the  attribute  you've 
selected,  and  your  present  score  for  that  attribute. 

You  select  the  attribute  with  which  you  want  to  fight  by  entering 
its  initial  letter  (M  for  MAGIC  and  so  on)  and  the  computer  uses  this 
information  in  the  routine  from  line  5340  to  determine  the  penalty 
or  otherwise  of  the  encounter.  If  you  have  fought  with  MAGIC  and 
lost,  you  lose  the  total  value  of  points  rolled  on  the  single  die  if  you 
have  at  least  that  number  of  points  to  begin  with.  That  is,  if  you 
have  only  two  MAGIC  points,  and  you  lose  a  fight  with  a  penalty  of 
three  points,  you  will  not  lose  any.  Again  this  is  simpler  in  practice 
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(as  the  computer  will  work  out  whether  or  not  the  penalty  should 
be  paid)  than  it  may  appear  when  reading  about  it.  If  you  lose  in  an 
encounter  when  you've  chosen  STRENGTH  as  the  attribute  to 
battle  with,  again  you'll  lose  the  penalty  rolled  by  the  die  if  you  have 
at  least  that  number  of  attribute  points  to  begin  with.  If  you  lose 
while  challenging  with  WISDOM,  you  will  only  lose  half  of  the 
penalty  rolled,  rounded  down  to  the  next  whole  number  (so  if  the 
penalty  is  one  and  you  lose,  it  costs  you  nothing,  as  half  of  one 
rounds  down  to  zero). 

Winning  is  much  more  fun.  You  can  gain  more  than  you  can  lose 
from  a  melee  using  MAGIC .  Win  with  MAGIC  and  you'll  get  double 
the  die  roll.  With  STRENGTH,  you'll  get  nothing  for  a  victory  (which 
is  perhaps  better  than  losing,  but  not  much,  so  you  may  be  advised 
to  avoid  fighting  with  strength  as  you  are  often  no  match  for  the 
muscled  monsters),  and  a  win  with  WISDOM  is  worth  half  the  die 
roll  (as  a  loss  with  WISDOM  equals  a  loss  of  half  the  die  roll). 

The  program  follows  a  pre-planned  structure  so  it  is  relatively 
easy  to  get  at  sections  of  it  if  you  want  to  modify  it.  (Once  you've 
solved  the  map  encoded  in  this  program  you  may  want  to  change 
it,  in  a  way  which  I'll  describe  in  due  course,  to  enable  you  to  use  a 
more  complicated  map  which  will  still  be  peopled  with  the  same 
monsters  and  follow  the  same  rules.  Once  you've  mastered  that, 
you'll  probably  want  to  adapt  it  to  follow  an  original  map  of  your 
own.) 

The  program  is  structured  as  follows: 


Lines  20-1 70 

Lines  2000-2050 
Lines  4000-4940 

Lines  5000-5620 

Lines  7000-7500 


Report  (which  room  you're  in,  where  the  exits 
are  and  the  like)  and  main  program  cycle 
Monster  descriptions 

Final  Confrontation  (the  Black  Lagoon,  the 
three  final  fights,  the  ending) 

Actions  (you  enter  your  direction  of  move¬ 
ment  or  your  desire  to  flee  or  fight;  fights  are 
conducted  in  this  section  of  the  program,  and 
rewards  and  punishments  determined) 
Contents  (this  section  holds  such  things  as 
the  four  chests,  and  the  bottle  of  magic 
potion;  it  is  entered  randomly  from  the  end  of 
the  'actions'  section  of  the  program) 
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Lines  8000-81 40  Room  description,  and  calls  monster  sub¬ 
routine 

Lines  9000-9670  Initialize 

Lines  9900-9990  Delay/sound  routine  (called  repeatedly 
throughout  the  program,  to  add  to  the  colour 
and  give  you  a  chance  to  read  what  is  on  the 
screen  before  it  is  cleared) 

The  most  important  part  of  this  program  and  the  key  to  any 
Adventure  program,  is  the  mechanism  which  'holds  the  world'  in 
place,  determining  the  relationship  between  various  parts  of  the 
system,  checking  potential  moves  between  elements  of  the 
system  to  make  sure  they  are  legal.  From  two  of  the  rooms  in  our 
castle  you  look  out  on  to  the  'Contoured  Garden'  but  you  cannot 
get  into  the  garden  and  walk  across  it  to  the  other  room.  (The 
garden  has  been  included  because,  apart  from  making  the  castle 
description  more  interesting,  it  gives  map-makers  a  clue  which 
should  help  to  tie  their  castle  plan  together). 

I  am  going  to  explain  now  how  this  program  keeps  track  of  the 
components  of  the  system,  but  I  do  not  want  you  to  study  it  too 
closely  before  you  play  the  game  or  it  will  remove  any  element  of 
enjoyment.  Look  at  lines  9570  to  9680.  The  DATA  statements  here 
contain  a  lot  of  useful  information  (and  there  are  a  few  dummies  in 
them,  just  i  n  case  you  do  decide  to  try  and  work  out  the  map  armed 
simply  with  this  information).  Look  at  the  fourth  DATA  statement 
(line  9600).  The  first  two  elements  of  the  string  are  the  number  of 
the  room  to  the  north  of  the  room  'held'  by  that  DATA  statement. 
There  is  nothing  in  that  position,  so  there  is  no  north-facing  exit 
from  that  room.  The  next  two  elements  tell  you  that  room  seven  is 
to  the  south,  the  next  two  indicate  an  east-facing  exit  leading  into 
room  two  in  the  castle,  and  the  next  two  that  room  five  lies  to  the 
south.  The  two  zeroes  after  that  are  used  for  storing  information 
regarding  the  contents  of  the  rooms. 

You  can  use  this  kind  of  referral  within  DATA  statements  to  hold 
any  map.  If  I  was  in  the  room  signified  by  line  9600  and  I  said  I 
wanted  to  go  north,  the  computer  knows  it  simply  has  to  look  at  the 
first  two  elements  of  the  string  that  holds  that  room.  If  they  are 
both  zero,  it  comes  back  with  the  information  "NO  EXIT"  and 
requests  a  new  direction.  If  another  number  is  found  there,  the 
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variable  which  is  assigneed  to  the  room  number  (which  is  Z  in 
much  of  this  program)  can  be  set  to  the  VAL  of  those  particular 
elements.  This  program  makes  extensive  use  of  Sinclair  BASIC's 
very  simple  string-slicing  techniques,  holding  the  monster 
attributes  within  the  elements  of  the  MS  array,  and  your  attributes 
in  JS. 

It  is  easy  to  modify  these  as  the  game  progresses.  If  you  defeat  a 
Fearbringer  in  one  room  and  reduce  his  MAGIC  to  9,  when  (and  if) 
you  meet  him  again  somewhere  else  in  the  castle,  his  MAGIC  level 
will  be  at  the  reduced  rate.  Meet  a  monster  enough  times  and  you 
can  just  about  wipe  him  out.  Having  monsters  remain  'the  same 
monster',  even  if  they  have  blundered  into  another  room,  is 
another  element  which  helps  keep  the  Adventure  universe  self- 
consistent. 

If  you  had  a  very  simple  Adventure  universe  of  just  four  rooms, 
you  might  join  them  as  follows: 


5 


1 

2 

3 

4 

N 

A 


►  E 


t 

S 


The  doors  are  shown  on  the  walls  they  join.  The  rooms  could  be 
designated,  using  the  same  system  as  used  in  CASTLE  DREAD,  as 
follows: 


Room  one 


Room  two 


Room  three 
Room  four 


"00030200"  (nothing  to  the  north,  room  three  to 
the  south,  room  two  to  the  east,  nothing  to  the 
west) 

"05040001 "  (note  that  'outside'  the  world  needs  a 
reference  number,  such  as  the  five  we've  used 
here 

"01000000"  (not  many  exits  here) 

"02000000"  (nor  here) 
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Suppose  you  were  in  room  two.  The  PRINT  statement 
describing  the  room  might  say:  "You  are  in  a  small,  square  room.  A 
door  to  the  outside  world  is  in  the  north  wall,  there  is  another  door 
to  the  south,  and  one  to  the  west.  Where  do  you  want  to  go?  "  If  the 
player  enters  "E"  the  computer  looks  at  the 'east  elements' of  the 
DATA  string  which  represents  room  two  (these  are  the  fifth  and 
sixth  ones)  and  sees  there  are  just  two  zeroes  there.  It  therefore 
knows  the  player  cannot  move,  and  signals:  "You  can't  walk 
through  walls"  and  waits  fora  new  direction.  If  the  player  this  time 
enters  "S",  meaning  he  or  she  wishes  to  move  south,  the 
computer  looks  at  the  south  elements  of  room  two's  string 
(elements  three  and  four)  and  finds  there  "04".  This  means  the 
player  is  moving  from  room  two  to  room  four.  The  computer  only 
has  to  set  the  variable  holding  the  room  number  to  the  VAL  of  the 
indicated  elements  of  the  room  string,  and  it  knows  where  the 
player  is.  Notice  that  there  is  no  reference,  within  the  PRINT 
statements,  to  'room  one'  or  'room  two'.  These  are  for  internal  use 
only. 

I  suggest  you  enter  the  program  now  and  run  it  until  you  begin  to 
understand  how  it  works.  This  will  give  you  a  pretty  good  idea  of 
the  floor  plan  of  the  castle.  The  map  will  be  easier  to  draw  if  you 
make  a  series  of  separate  squares  on  your  sheet  of  paper,  labelling 
them  with  the  names  of  each  room  as  you  discover  them  (such  as 
'Hall  of  Plots')  and  draw  little  'corridors'  connecting  them.  These 
can  then  loop  over  and  around  each  other  as  you  gradually  lock  in 
the  relationships  and  the  map  can  eventually  be  redrawn  neatly 
once  you're  confident  your  map  corresponds  with  the  one  hidden 
in  the  program.  Once  you've  got  this,  you  can  'wander  through'  the 
castle  at  will,  checking  your  map  against  the  real  thing.  After 
playing  the  program  a  few  times,  return  to  this  book.  Following  the 
listing,  I  will  discuss  some  ways  of  modifying  and  improving  the 
program  and  give  you  some  more  general  ideas  on  writing 
adventure  programs. 

10  REM  REUENGE  OF  CRSTLE  DRERf> 

20  GO  SUB  9000 

30  CL.S 

35  IF  000000 “  THEN  GO  TO  9 

0 

4-0  PRINT  XNUERSE  1 
attributes  are:  “ 


your 
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5©  IF  URL.  <U$(1  TO  23  3  >0  THEN 
PRINT  TRB  4.;  INVERSE  1;  "MBGIC: 

;  <J$  ( 1  TO  23 

6©  IF  URL  ( <J $  (3  TO  4-3  3  >0  THEN 
PRINT  TAB  4-;  INVERSE  1;  "STRENGTH 
";  U$  (3  TO  40 

T©  IF  URL  (U$(5  TO  Si 3 >©  THEN 
PRINT  TAB  4.;  INVERSE  1;"UIS0OM: 

"  ;  <J$  (5  TO  63 

SB  IF  HONEY  >©  THEN  PRINT  TRB  4- 
;  INVERSE  1; "UEBLTH:  $"  ;  MONEY 

9©  IF  U*=”©00000"  THEN  PRINT  " 
The  adventure  has  ended ", "You  ha 
ve  exhausted  all  your ", “powers . 
You  fought  brave ly", "and  well  bu 
t  could  not  endure”, "the  struggl 
a  ...  -  Fa  remeu,..":  STOP 
10©  GO  SUB  PRLISE 
11©  GO  SUB  ROOM 

12©  L.ET  M=0:  IF  Z>  1  THEN  IF  RND 
>.5  THEN  GO  SUB  7000:  POKE  23S92 
.  -1 

' 13©  GO  SUB  PAUSE 
14-©  GO  SUB  POTION 
150  GO  SUB  PAUSE 
17©  GO  TO  30 
IS©  REM  fiiJJJfffffJf* 

2000  REM  MONSTER  SUBROUTINE 
2010  IF  0=1  THEN  PRINT  "There  is 
an  angry  warlock  in", "the  room  = 
He  has  a  magi c ", "ra t i ng  of  ";M* 
(1,2  TO  33;”,  his  strength",  is 
" ;  M$  (1.4-  TO  53;"  and  his  wisdom 
is  ";H$t 1,6  TO  73 

202©  IF  0=2  THEN  PRINT  "The  room 
contains  a  f i r e " brea thi ng  Fa 
arbringer.  His". "wisdom  is  ";M$c 
2.6  to  73,-",  While  he",  "has  a  St 
rength  rating  of ",H$(2,4  TO  53," 
,  and  his  magic  skill", "is  "jH$i 

2.2  TO  33 

203©  if  0=3  then  print  "Horrors! 

You've  stumbled  in  on", "the  hid 
ing  place  of  the  aw fu  l  ", "Sou l th r 
eat.  You  can  see  at  a", "glance  h 
is  strength  is  ";M$C3,4-  TO  S3;**, 
"/*his  magic  ability  rates  ";M$C 

3.2  TO  33;“,", "and  his  wisdom  is 
";M$C3,6  TO  73 

204.0  IF  0=4.  THEN  PRINT  "You've  t 
ripped  over  some thi ng ", "i n  the  d 
ark.";  GO  SUB  PAUSE:  PRINT  "It  a 
wakes  and  you're  face  to", "face 
with  Grave ipit,  the  ", "Knee c rushe 
r.  Gravelpit's  magic","is  ";M$(4- 
,2  TO  33;",  his  strength  is",M*( 
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i/4-  TO  5 >  ;  " ,  and  his  wisdom  is 
.:N${4,6  TO  73 

2050  IF  0=5  THEN  PRINT  “NOW  UOU ' 
re  in  trouble.":  GO  SUE  PAUSE:  P 
PINT  "This  room  holds  the  dreads 
d",  "enemy  of  all  who  enter  the",, 
"castle,  Wo  tv  ling  of  Wolf  Glass. 
"/•With  a  strength  of  ";M$(5,4  T 
O  5);",  wisdom", "of  ";M$(5,6  TO 
7) j "  and  magic  of  ";M$t5,2  TO  33 
;",  he  is  an ", "enemy  to  approach 
with  cau  t i on " 

2060  GO  SUB  PRUSE 
2070  RETURN 

3080  REM  X-S-X-X-X-X-S-X-X-S-?**-*- 
4.00©  REM  END  OF  GRME 
4-0l@  print  "You  have  stumbled  on 
to  the", "marshy  mud  surrounding 
the",“BlaeR  Lagoon  underneath  th 
e", “castle.  To  escape  from  the" 
, "castle,  you  must  fight  The"."G 
oardian  of  the  Black  Lagoon" 

4-020  PRINT  '"The  fight  must  in  VO 
ive  all","attribotes...and  you  *  i 
l  need", "a  total  of  10  to  escape 

4-03©  GO  SUB  PRUSE 

4-04-0  IF  MONEY  >0  THEN  PRINT  "You 
have  $";MONEY; "  worth  of", "gold” 
4050  GO  SUB  PAUSE 

4060  PRINT  '"The  Guardian's  attr 
i bu  tes  :  " 

4070  PRINT  TAB  3; "MAGIC:  ";M$f6, 

a  TO  33 

4060  PRINT  TAB  3; "STRENGTH:  ";M* 
C5.4  TO  53 

4090  PRINT  TAB  3; "WISDOM;  ";M$tS 
,6  TO  73 

4100  PRINT  '"Your  attributes:" 
4110  PRINT  TAB  3; "MAGIC:  ";J$C1 
TO  23 

4120  PRINT  TAB  3; "STRENGTH:  ",U$ 
1 3  TO  43 

4130  PRINT  TAB  3; "WISDOM:  ";U$(5 
TO  63 

4140  GO  SUB  PAUSE 

415©  IF  MONEY  < 100  THEN  GO  TO  427 
0 

4160  PRINT  '"You  can  buy  attribu¬ 
te  points", “for  $100  each" 

417©  PRINT  "If  you  want  to  buy, 
enter  the  "  ,  " i n i t i a  I  of  the  attri 
bute  you", "want,  followed  by  the 
nun be  r " 

4160  PRINT  "of  points.  Enter  'N' 
if  you  do", "not  want  to  buy" 
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4-190  INPUT  FLASH  l;  "Attribute?  " 

;  e$ 

4-200  IF  E$=“N"  THEN  GO  TO  4-270 
4-210  INPUT  FLASH  l; ‘‘Amount?  “;AM 
4-220  IF  MONEY  —AM  <  1  OR  AM  <100  THE 
N  GO  TO  4-210 

4-230  IF  E$="H"  THEN  LET  TO 

2) =STR$  CUAL  (U$(l  TO  2)  3  +INT  (A 


M/100)  ) 
4-24-0  IF 
4-)  =STR$ 
H/108)  ) 
4-250  IF 
S3 =STR$ 


E$=“S“  THEN  LET  (3  TO 
(UAL  (U$(3  TO  4-3  3+INT  (A 

E$="S“  THEN  LET  U$ (5  TO 
(UAL  («J$(S  TO  6)  3  +INT  (A 


M/IBS) 1 

4-255  PRINT  “MAGIC:  “;U$(1  TO  2); 

”  STRENGTH:  “;U$C3  TO  4-3  .>  ’'WISDOM 
:  “;U$(5  TO  5)  ;  “  GOLD  MONEY 

4-250  LET  MONEY  =MONEY -AM :  IF  MONE 
Y  >99  THEN  GO  TO  4-190 

4-270  C-LS  :  PRINT  “NOW  for  the  Ul¬ 
timate  Test-..”:  GO  SUE  PALI5E 
4-275  INPUT  FLASH  1;  BRIGHT  1,  PH 
PER  2; “Press  ENTER  when  you're  b 
rave  enough  to  fight  " #A$:  GO 
SUB  PAUSE:  CLS 
4-280  PRINT  '“First,  Magic." 

4-290  LET  MH=UAL  (U$tl  TO  23  )  :  LE 

T  MG=UAL  (M$ (5,2  TO  3)3 

4-300  PRINT  TAB  3;  "YOU:  ";MH;“  G 


uardian:  MG 

4-310  LET  DIFF=ABS  (MH  —MG) 

4-320  print  "The  difference  is 
DIFF 

4-330  IF  MH >MG  THEN  PRINT  "in  you 


r  favour" 

4-34-0  IF  MG >MH  THEN  PRINT  "and  th 
e  Guardian  has  the  edge" 

4-350  GO  SUB  PAUSE;  LET  COST  =  INT 
(AND* (  (MH+MG)  /3) 3  +1 
4-360  PRINT  '"This  round  carries 
a  penalty",  "of  COST; "  attribut 
e  points":  GO  SUB  PAUSE 
4-37©  LET  RESULT  =  INT  (RNDfDIFF)  +1 
4-380  LET  RESHL*  =ABS  (RESULT -MH) 
4-390  LET  RESGA  =ABS  (RESULT -MG 3 
4-4-00  IF  RESHU  > RESGA  THEN  PRINT  ” 
And  you  win  ";COST;“  magic  point 
S":  LET  MH  =MH  +COST :  LET  Uftl  TO 
2)  =STR*  CMH3  :  GO  TO  4-4-20 
4-4-10  PRINT  "And  you  lose  ";COST; 
”  magic  points":  LET  MH=MH-COST: 

LET  U*(l  TO  2) =“00":  IF  MH>0  TH 
EN  LET  «J*(1  TO  2)  =STR*  (MH) 

4-4-80  INPUT  FLASH  1;  PAPER  7;  INK 
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2; "Press  ENTER  when  you're  read 
y  to  continue  this  crucial 

Challen3e",,fl$:  GO  SUB  PAUSE 
CL  S 

44.85  PRINT  "NOW  Strength:" 

4.4.90  LET  MH=UAL  ( J$  (3  TO  4)  )  :  LE 
T  MG=UflL  (M$  (6,4  TO  5)  3 
4.500  PRINT  TRB  3;  "YOU:  ";MH;  ”  r; 
uardian:  " ; MG  ' 

451©  LET  DIFF=flBS  t MH -MG) 

4520  PRINT  "The  difference  is 
DIFF 

453©  IF  MH  >MG  THEN  PRINT  "and  yc- 

i  i  f  j’  g  J  Lj  ^  ** 

4540  IF  HG >MH  THEN  PRINT  "with  t 
he  Guardian  in  front" 

4550  GO  SUB  PRUS E:  LET  COST=INT 
1RND*  {  (MH+NG3  ^23  J  +1 
45S©  print  '"This  round  carries 
a  pen  a  l  ty  *• ..  "o  f  COST;  "  attribut 
£  points":  GO  SUB  PAUSE 
4570  LET  RESULT  =  INT  (RND*DIFF3  +1 
45S©  LET  RE5HU=fiE5  l RESULT  — MH) 
459©  LET  RESGR  =RB5  (RESULT -MG) 
4600  IF  RESHU  > RESGR  THEN  PRINT  " 
And  you  win  " ; COST ; "  strength  po 
ints".  LET  MH=MH+C05T:  LET  U$  (3 
TO  4) =STR$  (MH) :  GO  TO  4580 
4610  PRINT  "find  you  lose  "; COST; 
"  Strength  points":  LET  U$  (3  TO 
4)  ="00":  IF  MH > 0  THEN  LET  MH  =MH  — 
COST:  LET  U$(3  TO  4) =5TR$  (MH) 
467©  LET  RESULT  =  INT  (RNDfDIFF)  +1 
46S©  INPUT  FLRSH  1;  BRIGHT  1;  PR 
PER  2;  INK  7; "Now  for  the  final 
challenge  Press  ";  INVERSE  1 

; "ENTER";  INVERSE  O;"  when  you  d 
are”,fl$:  GO  SUB  PAUSE :  CLS 
4685  PRINT  "Now  Wisdom." 

4690  LET  MH=VAL  (U$(5  TO  6)).  LE 
T  MG=UAL  (H$t6,6  TO  7)3 
4700  PRINT  TRB  3; "You :  "; MH; "  G 

uardian:  " ; MG 

471©  LET  DIFF  =RBS  (MH-MG) 

4720  PRINT  "The  difference  is 
DIFF 

4730  IF  MH  >MG  THEN  PRINT  "and  yo 

u  **  p  ^  a  ^  *  * 

4740  IF  HG  >MH  THEN  PRINT  "and  th 
e  Guardian  leads" 

4750  GO  SUB  PAUSE :  LET  COST=INT 
(RND* (MH+MG3 ) +1 

4760  PRINT  '"This  round  carries 
a  penalty",  "Of  ";COST;"  attribut 
e  points":  GO  SUB  PAUSE 
4770  LET  RESULT =INT  (RND*D IFF) *1 
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4-780  LET  RESHU  =flBS  (RESULT -MHi 
4790  LET  RESGA  = ABS  (RESULT -MG i 
4-800  JF  RESHU >RESGR  THEN  PRINT  " 
and  you  win  ";C OST;  "  wisdom  poin 
IS":  LET  MH =MH+COST :  LET  U$  (5  TO 
Si  =STR$  (MH)  :  GO  TO  4-820 
4-810  PRINT  "And  you  lose  ",  COST ; 
"  Wisdom  points":  LET  MH=MH— COST 
:  LET  J*(S  TO  Si ="00":  IF  HH>0  T 
HEN  LET  «J$(5  TO  Si =STR*  (HH) 

4-8S0  LET  A=VAL  (U*(l  TO  2i  i 

4-860  LET  B=VAL  (U$  (3  TO  4-i  i 

4-370  LET  C-=URL  (U$(S  TO  Si  i 

4-880  GO  SUB  PRUSE 

4.890  PRINT  '"fit  the  end  of  the  c 
fuciai","  ba  1 1  l  e  you  have.-" 

4-900  PRINT  TRB  3;  "MAGIC;  ” ;  A 
4-910  PRINT  TAB  3;  "STRENGTH :  ”;B 

4-920  PRINT  TRB  3;  "WISDOM:  ";C 
4-930  IF  fl+B+C>S  THEN  PRINT  '  FLR 
SH  l;  BRIGHT  l;  PAPER  7;  INK  2 
Rnd  you've  made  it,  O  hero  of"," 
these  dark  and  dangerous“,"tifles 
-  I  dub  thee  INVERSE  l;"Sir"; 

INVERSE  o;"  "; N$:  GO  SUB  PAUSE : 

STOP 

4-94-0  PRINT  "So  it  is  all  over,  y 
ou  needed ”,  "a t  least  10  points  t 
otal  to”, "escape  the  clutches  of 
the", "The  Guardian" 

49S0  print  '"You  fought  valiant  i 
y.  but  now”,  "will  be  consumed  by 
the " , "Guard i an  " 

4960  GO  SUB  PAUSE:  STOP 
4970  REM  ************** 

5000  REM  ACTION  SUBROUTINE 
5005  LET  D=4;  IF  B$(Z,9i="0"  THE 
N  LET  D  =  1 

5010  print  '"What  do  you  want  to 
do  now?" 

5015  INPUT  Z$:  IF  Z$=”©"  THEN  ST 
OP 

5020  IF  Z$  =  -' "  THEN  CLS  :  LET  Z$  = 
"#** 

5022  IF  D=4  AND  7*  f T  '  THEN 

LET  D=0:  GO  TO  Zio© 

5025  IF  Z$( li ="F"  THEN  GO  TO  513 

© 

5©3©  IF  Z$=”N"  AND  B$(Z,1  TO  2> = 
"00"  THEN  PRINT  , "NO  EXIT”:  GO  T 
Q  5010 

5040  IF  Zf-''S"  AND  B$(I,3  TO  41  = 
"80"  THEN  PRINT  "THERE  IS  NO  DOG 
R  THAT  WRY”:  GO  TO  5010 
5050  IF  Z$="E"  RND  B$(Z,5  TO  Si = 
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"00"  THEN  PRINT  "THRT  IS  NOT  POS 
SIBLE”.  GO  TO  5010 

5060  IF  Z$="W"  AND  B$(Z/7  TO  S3  = 
•00"  THEN  PRINT  "YOU  CRN'T  WRLK 
THROUGH  Wfil_l_S":  GO  TO  5010 
5070  IF  Z$=”N"  THEN  LET  Z=VRL  fB 
$£Z,1  TO  2)  .1  :  RETURN 
5080  IF  Z*=”S"  THEN  LET  Z=VRL  (S 
$  (Z/3  TO  4.)  3  :  RETURN 
5090  IF  Z$=”E"  THEN  LET  Z=VRL  CB 
$(Z,5  TO  63  3  :  RETURN 

5100  IF  Z$="W”  THEN  LET  Z=UAL  <B 
3£Z,7  TO  8) 1 :  RETURN 
5110  IF  Z$  (  13  <  > “F"  THEN  RETURN 
513©  IF  B  $  <  Z  ,  9  3  =  ”  O  "  THEN  PRINT  " 
There  is  nothing  to  fight  agains 
t”:  GO  TO  5G1© 

514-©  IF  Z$  =  "FL*'  THEN  LET  D=INT  < 

RND  Jf-23 

515©  IF  D=1  THEN  PRINT  "Which  di 
recti  on 7":  GO  TO  5015 
S1S0  IF  D=0  THEN  PRINT  "No ! i  You 
must  stand  and  fight" 
o!70  PRINT  ''"Which  characterist 
ic  Will”,  "you  fight  With?” 

SIS©  LET  0=URL  (B$ (Z, 93  3 
5190  INPUT  Z $ :  IF  Z*<>"M"  RND  Z$ 
<>"S"  RND  Z$o"W"  THEN  GO  TO  519 
0 

5200  IF  Z$=”M”  THEN  LET  HUM=VRL 
tU$(l  TO  23 3 :  LET  MON=VRL  (M$(Q, 
2  TO  33  3 

5910  IF  Z$="S"  THEN  LET  HUM  =VRL 
tU*C3  TO  4-3  i  :  LET  MON=VRL  (M$fO, 
4-  TO  53  3 

5220  IF  Z$  =  "W"  THEN  LET  HU«=VRL 
C «J$  1 5  TO  63  3  :  LET  MON=UAL  (M$(Q, 
5  TO  73  3 

5230  LET  DIFF=RBS  t HUM -MON 3 
524-0  PRINT  ,  ,  FLRSH  1;  BRIGHT  1; 

INK  2;  PRPER  7; "The  difference 
is  ";DIFF 

5250  IF  HUM  > MON  THEN  PRINT  FLRSH 
l;  BRIGHT  1;  PRPER  2;  INK  7; "an 
d  you  have  the  advantage" 

5260  IF  HUM  f MON  THEN  PRINT  FLRSH 
l;  BRIGHT  l;  PRPER  2;  INK  7; "an 
d  he  has  the  advantage" 

5270  LET  COST  =INT  tRND*63  +1 
5260  PRINT  ' '  FLRSH  1;  BRIGHT  1 : 

PRPER  3;  INK  9; "This  fight  carr 
ies  a”, "penalty  of  ";  INVERSE  i; 
COST;  INVERSE  0;"  points", 

5290  LET  RESULT =INT  l RND *D IFF 3 +1 
5300  GO  SUB  PAUSE 

5310  LET  RESHU  =RBS  f RESULT— HUM3 
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5320  LET  RE3HO  =PB5  t RESULT -MON) 
5330  IF  RESHU  <RESHO  THEN  GO  TO  5 
39© 

534©  PRINT  ' '  ^LR5W  I;  PAPER  2; 
INK  6; “You  have  been  beaten* “ 
5350  IF  Z$  =  ,,M,‘  THEN  LET  M*C©,2  T 
O  3)  =STR$  (URL  CM*t©,2  TO  33  3  +2* 
COST?;  IF  URL.  CU*C1  TO  2))  >=COST 
THEN  LET  <J$  C I  TO  2)  =STR$  (URL  C 
U*tl  TO  2) ) -COST) 

535©  IF  Z$="S"  RND  URL  (U* (3  TO 
4)  )  >®COST  THEN  LET  J$(3  TO  43  =ST 
R$  (URL  (J$i3  TO  43  3  -COST) 

537©  IF  THEN  LET  M$(S,6  T 

O  )  =STR$  CURL  (M*f©^S  TO  73  3  +  INT 
CCOST/2)  3  ;  IF  URL  CO*  C5  TO  S3  3  > 
—COST  THEN  JLET  J*  C5  TO  S3  =5TR$  C 
URL  CO*C5  TO  6) 3 -COST) 

53S0  GO  TO  5440 

5390  REM  HUMAN  UICTORY 

5400  PRINT  ' '  FLASH  I;  BRIGHT  1; 

INK  6;  PAPER  2; "You  have  defeat 
ed  his  i " 

5410  IF  Z*=**M"  THEN  LET  J*C1  TO 
2) =STR$  CURL  CJ*C1  TO  2) 3 +2*COST 
3:  IF  URL  (M*f©^2  TO  33 3 > =CDST  T 
HEN  LET  M*  CO  >  2  TO  3) =STRJ  (  URL  A 
M*t©,2  TO  3) 3 -COST) 

5420  IF  Z*  =  "5,%  THEN  LET  M*f©<.4  T 
O  53  =STR*  (URL  CM*(©^4  TO  53  3  -CO 
ST) 

543©  IF  Z*="U"  THEN  LET  J*  C5  TO 
6)  =STR$  CURL  f «J *  C 5  TO  S3  3  +INT  CC 
05T/2)  3  ;  IF  URL  CH*CO^S  TO  73  3  >  = 
COST  THEN  LET  M$(D/6  TO  7) =STR$ 
CURL  CM$(©,S  TO  7) 3 -COST) 

5440  GO  SUB  PRUSE 

5450  PRINT  “After  that  fight,  yo 
ur’S^attri  bu  t  es  are  : 

5450  PRINT  TRB  3;  “MAGIC;  **;  J$  fl  T 
O  23 

5470  PRINT  TRB  3;  "STRENGTH;  O*  t 
3  TO  43 

54B0  PRINT  TRB  3; "WISDOM; 11 ; J* C5 


TO  5) 
5490 

PRINT 

'  “And 

those  of  the 

5500 

IF 

0  =  1 

THEN 

PRINT  “»arlocK“ 

551© 

IF 

0=2 

THEN 

PRINT  “Fearbrin 

ger” 

552© 

IF 

0=3 

THEN 

PRINT  "Soulthre 

at" 

5530 

IF 

0=4 

THEN 

PRINT  "Kneecrus 

He  r  11 

5540 

■»« 

IF 

0=5 

THEN 

PRINT  “Uoiviing 

5550 

PRINT 

"are; 

V9 
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5560  PRINT  TRB  3;  ,,MRGIC:  ";M$ 

a  TO  35 

5570  PRINT  TRB  3; "STRENGTH;  n;M$ 
C  Q  *  4-  TO  55 

5580  PRINT  TRB  3;"UISDDM:  ";M*C© 

..s  to  yy 

550©  GO  SUB  PRU5E 

5o©0  PRINT  ’Press  ENTER  to  conti 
nue  " 

561©  INPUT  T$;  GO  SUB  PBUSE;  CL5 

552©  LET  K  =2  +  INT  (RND*8:* 

563©  IF  K=Z  THEN  GO  TO  562© 

564-©  LET  B*  IK,  95  CZ,9} 

5650  LET  B$CZ,9}="0" 

566©  IF  RND>.5  THEN  RETURN 
7000  REM  CONTENTS 

7005  IF  B  $  C  Z  *  9  3  <>#*0*'  THEN  LET  H  = 
1:  RETURN  :  REM  DOES  NOT  RLLOU 
CONTENTS"  IF  MONSTER  TO  BE 
FOUGHT 

7010  PRINT  ;  GO  SUB  7000+I00S-INT 
(RND*5+I> 

7020  GO  SUB  PRUSE 
703©  RETURN 

7100  LET  CHEST  =  CHE  ST  -*-1 :  IF  CHEST 
—5  THEN  RETURN 

711©  print  "In  front  of  you  is  a 
chesL'/’^abeued  with  a  large  ft 
CHEST 

712©  PRINT  ' "Ui l l  you  open  i t  CY 

or  NL?U 

713©  GO  760© 

715©  IF  Z$="N"  THEN  RETURN 

716©  LET  J  =  INT  (RND  *35  :  GO  SUB  P 

RUSE 

7170  IF  U=0  THEN  LET  CflSH=l®0+IN 
T  CRND^308)  :  PRINT  "It  holds  Dr  3 
Son's  gold "  , "worth  CRSH; " ? " : 

LET  MONEY  =MCNEY -J-CBSH ;  RETURN 
7130  IF  U  =  I  THEN  PRINT  "R  goblin 
leaps  out /‘/‘stabbing  you?".*  LE 
T  LOSS  =  INT  (RNDJ6)  +1:  IF  URL  (US 
C 3  TO  4-)  5  -LOS5>  =0  THEN  LET  U$  (3 
TO  4-)  =5TR$  (URL  £U$  (3  TO  43  )  -LOS 
S5  :  RETURN 

7190  IF  U=2  THEN  PRINT  "R  Strang 
e  smoxe  coises  out  of“/‘it,  maKin 
g  you  sleepy  and“/‘sapping  your 
jb  a  g  i  C  power";  LET  LOSS  =  INT  (RND  5- 
5*  -hi:  IF  URL  (U$ l 1  TO  233 -LD55>= 
0  THEN  LET  U$ C 1  TO  23  =STR$  (URL 
(U$ (1  TO  2) } -LOS53 ;  RETURN 
720©  IF  POT XON  =  l  THEN  GO  TO  7©10 
721©  LET  POT ION =1 
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?S20  PRINT  "You  see  a  smalt  bo t t 
le  engraved" 

7230  PRINT  "with  curious,  twiste 
d  letters." 

.'24-0  PRINT  "Uill  you  drink  the  p 
o t i on " , "insi de  it  (Y  or  N) ?" 

725©  GO  SUB  7600 

7260  IF  Z*="N"  THEN  RETURN 

7270  GO  SUB  PAUSE 

7230  IF  RND > . 6  THEN  PRINT  "It  CO 
ntained  a  potion  to“/‘enhance  yo 
ur  wisdom":  LET  U$(5  TO  S3 =STR$ 
(URL  (U$(5  TO  S3  3  =INT  (RND*S+133 
RETURN 

729©  print  "It  contained  a  potio 
n  whi ch”, " weakens  you,  sending  y 
OU","tO  Sleep”:  GO  SUB  PAUSE:  LE 
T  LOSS  =INT  (RND *6 3  +  1 :  IF  URL  (U$ 
(3  TO  4-3  3  (LOSS  THEN  RETURN 
7295  LET  U*  (3  TO  4-3  =STR*  (URL  (U 
$  (3  TO  4-3  3  -LOSS3  :  RETURN 
7300  IF  SCROLL = 1  THEN  RETURN 
7310  LET  SCROLL =1 

732©  PRINT  "You  see  a  papyrus  sc 
roll.", "Do  you  wish  to  read  it  c 
Y  or  N3 ?" 

7325  GO  SUB  7600:  IF  Z*="N”  THEN 
RETURN 

7330  IF  RND >.5  THEN  PRINT  "You  C 
annot  understand","the  language. 
" :  GO  SUB  PRUSE :  RETURN 
7335  PRINT  "It  contains  a  magic 
spell.  Do " , "you  want  to  read  it 
cy  or  M3  7" 

734-0  GO  SUB  7600:  GO  SUB  PAUSE: 
IF  Z$=”N"  THEN  RETURN 
7350  IF  RND >.5  THEN  PRINT  FLRSH 
1;  BRIGHT  1;  INK  7;  PRPER  2;  "It 
was  a  beneficent  spell":  GO  SUB 
PRUSE.  LET  J$(l  TO  23 =STR$  (URL 
(U$(l  TO  23  3  tlNT  (RND*6+13 3  :  RET 
URN 


7360  PRINT  PRPER  2;  INK  7;  FLASH 
ij  BRIGHT  l; "  it  was  an  evi l  s 
pell!!!",:  GO  SUB  PRUSE:  IF  URL 
CU$(3  TO  4-3  3  >5  THEN  LET  U*  (3  TO 
4-3  =STR$  (URL  (U$(S  TO  4-3  3  -INT  (R 
NDS-6  +  13  3  :  RETURN 

74-00  IF  SAFE  =1  THEN  GO  TO  7010 
7405  LET  SAFE=1 

74-1©  PRINT  "On  the  wall  is  a  sma 
U,  gi  ided"  ,  "sa  f  e  ,  and  in  front 
of, "it  is  a  key" 

74-15  print  '  "Do  you  want  to  open 
the", "safe  (Y  or  N3 " 

74-20  GO  SUB  7600 
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74-2S  IF  Z$="N"  THEN  RETURN 
74.30  IF  RND>.3  THEN  GO  TO  74-6© 
74.35  GO  SUB  PAUSE:  PRINT  '  "fi  Shf 
jfiKing  harpy  flies  out"/*and  sin 
Ks  its  teeth  into"/',your  throat! 

74-4.0  GO  SUB  PAUSE 

74-4-S  print  'You  grapple  With  it 
and...'*:  GO  SUB  PRUSE:  PRINT  "  .  . 
.finally  wring  its  neck" 

74-5©  IF  URL  (U*(3  TO  4-J  J  >5  THEN 
LET  U$(3  TO  4-.1  =STfl$  fURL  f3  T 

O  4-)  >  -INT  (RNDjS+1)  ) 

74-55  GO  SUB  PRUSE:  GO  TO  7620 
74-6©  print  ”R  choir  of  angeLic  V 
oices  is**,  “heard**:  GO  SUB  PAUSE: 

PRINT  "You  are  refreshed  and  he 
a  led** 

74-8©  LET  3  TO  4.)  =STR$  (URL  U 

$  (3  TO  4-J  )  +INT  (RNDJ6+1)  ) 

74.9©  RETURN 
7500  GO  TO  710© 

7600  LET  2  $  =  INKEY  $ 

7610  IF  Z*<>”N"  RND  Z$0"Y”  THEN 
GO  TO  7600 
7615  PRINT 

762©  BEEP  .5,1:  BEEP  .5,2:  BEEP 

.5,-1:  RETURN 

7630  REH  ************** 

S000  REH  ROOH  CONTENTS 
S010  IF  2=1  THEN  PRINT  "YOU  are 
at  the  entrance  to  an"  ,  *'anci  en  t  , 
forbidding-looking", "cast l e .  yo 
u  are  standing  on", "the  north  si 
de  of  the  cas t  le , " , "and  as  you  l 
ook  sou  t  h  *’  ,  **  towa  rds  the  crumblin 
g",  "structure,  you  notice  the**," 
entrance  portal  is  open", "and  un 
guarded  ** 

8020  IF  2=2  THEN  PRINT  "You  are 
in  the  entrance  ha  l  l  , " , "wh i ch  i 
hung  with  rich",*‘fabrics.  Door 
lead  to  the”, "east  and  the  sou 
h,  and  there", "is  an  open  portal 
to  the",  "wes  t " 

8038  IF  2=3  THEN  PRINT  "This  is 
only  a  store  roots .  ** ,  "The  re  is  a 
single  exit,  back", "the  way  you 
came  in,", "to  the  west" 

804-0  IF  2=4-  THEN  PRINT  "This  sm a 
ll  room,  whi  ch*‘ ,**  features  an  orn 
ate  s cu  ip ture " , "o f  the  moon  godd 
ess  on  a  **  ,  "pedes  ta  l  in  the  north 
-eas  t  "  ,  **  co  rne  r  ,  is  the  Royal",  "P 
resence  Chamber.  Doors  lead", "to 


rH/iiri 
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the  sooth.,  the  west  3nd"/‘to  th 
e  east" 

S050  IF  Z  = 5  THEN  PRINT  "The  Halt 
of  Plots,  a  ”, "wooden -pane  I  led  r 
oo»  redo  ten  t  with  whispers  and 
".."rumours,  with  exits  to  the  ea 
st", "and  to  the  south  from  which 
", "comes  the  smell  of  sulphur  an 
d",“a  weird  chanting" 

306©  IF  z=s  THEN  PRINT  "You  have 
entered  the  Wizard  "C^en,  wit 

h  a  cauldron  bubbling", "over  a  r 
ire  with  green  /tames", "in  the  s 
outh  west  co rne r .", "Thi s  room  re 
£  ks  of  burni ng" , "su tphur ,  and  th 
e  echo  o f " , "an ci en t  spells.  You 
can  leave", “to  the  north,  the  so 
uth", "or  to  the  east" 

S0?0  IF  Z=7  THEN  PRINT  "You  find 
yourself  in  a  p t a ce " , "whi ch  see 
ms  quiet  and  pea ce f u l . " , "Th i s  is 
the  castle's  Pi c tore  ", "Ga  l  le ry , 
with  a  large  painting", "of  the 
legendary  Guardi  an  ", "o f  the  Blac 
k  Lagoon  to  the”, "left  of  the  wi 
ndow  in  the", "east  wall.  Through 
the  window", "you  can  see  the  mu 
l  tioned" , "windows  of  the  Great  H 
a  1 1  "across  the  contoured  Card 
en.", "Exits  from  the  Gallery  are 
"."to  the  north  and  to  the  west" 
30S©  IF  Z=S  THEN  PRINT  "This  iS 
the  most  magni f i cent ", "room  in  t 
he  castle,  the", "Great  Hall,  wit 
h  a  mas si ve " , "hamme r beam  root  .  Y 
ou  can", "leave  i t  by  the  double 
doors", "to  the  north,  or  by  thos 
e  to",  "the  east  behind  which  you 
can", "hear  music  playing.  Throu 
gh " , " the  windows  in  the  west  sal 
i ", "you  can  see  the  Contoured"," 
Garden,  and  beyond  that  through" 
.."windows  of  a  room  hung  with"," 
many  pictures" 

S090  IF  Z=9  THEN  PRINT  "Sounds  o 
f  a  string  qua r te t " , " f i  1 1  the  ro 
o»  ,  the"  ,  "musi ci ans '  chamber.  Yo 
u  can", "leave  by  doors  to  the  we 
st  or", "by  one  to  the  south" 

S100  IF  Z=10  THEN  PRINT  "YOU  are 
now  in  the  Sanctuary  of","Silen 
ce,  a  room  whose "," ca  imness  may 
be  a  de cep t i on . " , “The  room  is  da 
ap  and  cold.  On", "exit  leaves  th 
e  room  to  the"  ,  "nor  th";  IF 
0,3  TO  4-J="12"  THEN  PRINT  "  and 
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one  leaves”, "to  the  south" 

Slid  XF  Z  =  ll  THEN  PRINT  "This  »U 
st  be  the  Ues t i bu le ” , "o f  Sighs, 
a  dank  and  c tammy , "room  where  l 
egend  says  the " ,  Guar d i an  of  the 
Black” , "Lagoon  can  sometimes  be 
”, "heard  at  night.  There  is  a"," 
door  to  the  north”;.-  IF  B$C11,3 
TO  4-)  ="12"  THEN  PRINT  ”  a.Od","on 
e  to  the  south" 

8120  PRINT  ;  IF  Z=12  THEN  GO  TO 

8125  IF  Z  <  > 1  THEN  IF  B*CZ,93="0” 
AND  RND>.S5  THEN  LET  B$ f Z, 93 =ST 
R$  CINT  (RND 3 :  REM  DELETE 
FOR  LESS  HONSTERS 
8130  IF  B*fZ,93 <>”0”  THEN  LET  ©  = 
URL  tB$CZ,933:  GO  SUB  2000 
814-0  RETURN 

3150  REM  3-****  +  +  S-  +  3-  +  +  +  + 

3000  REM  INITIALISE 
9010  RANDOMIZE 
302©  LET  Z=1 
3030  LET  PAUSE =9900 
304.0  LET  ROOM  =8000 
9050  LET  ACT ION =500© 

9060  LET  MONEY =0 

9078  LET  CHEST =0 

3080  LET  POT I0N=0 

9090  LET  SCROLL =0 

310©  LET  SRFE  =0 

311©  DIM  B$  (12,10.1 

9120  DIM  M*C6,73:  DIM  U $  16) 

9130  POKE  23692,-1:  POKE  23658,8 
314.0  INPUT  “Uhat  is  your  first  n 
3B6?  ";N$ 

9150  PAPER  1:  INK  7:  BORDER  1:  C 

LS 

SICS  PRINT  "Hi  there,  ”;N$:  PRIN 
T  "Please  stand  by..." 

3320  REM  FILL  ROOMS 
3330  FOR  T=I  TO  12 
934-0  READ  T$ 

335©  LET  B$ CT3 =T$ 

3360  NEXT  T 

3365  LET  B*(C10+INT  tRND*233,3  T 
O  43  ="12” 

9370  REM  DISTRIBUTE  RND 
CRERTE  MONSTERS 

9380  LET  M$(1,13=STR$  (INT  (RND* 
33  +13 

3390  FOR  R=2  TO  5 

94.00  LET  M*(R,13=STR*  CINT  CRND* 
93  +13 

94.4.0  LET  B$(URL  CM*  CR  ,  13  3  ,  93  =M*  C 
R,  13 
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9*5©  HEX T  B;  L.ET  B$  ( 1  ,  93  =  " © " 

9*5©  REM  CHBRBCTERIST ICS 
9*7©  FOR  B  =  1  TO  6 

9*3©  LET  M$(B,2  TO  33  =STR$  (  INT 
CRND+113 +103 

9*9©  LET  M$CB,*  TO  53 =5TR$  C XNT 
CRND+113  4*103 

95©©  !_ET  M$(B,B  TO  73  =STR$  C  INT 
CRND+113  +103 
9510  NEXT  B 

952©  REM  HUMAN  CHARACTERISTICS 
953©  LET  U*(l  TO  23 =STR$  C INT  CR 
ND+113  +1©3 

95*0  LET  vJ*(3  TO  *3  =STR$  t INT  CR 
ND  +113  +1©3 

955©  LET  U*(5  TO  S3  =STR$  (INT  CR 

MD +113 +103 

955©  RETURN 

957©  DATA  " ©002000000 " 

9530  DBTB  "  0003030*00" 

9590  DBTB  " 0000000200 " 

950©  DBTB  " 0007020500 " 

951©  DBTB  "  00050*8000 41 
952©  DBTB  "0510070000" 

953©  DBTB  '*0*00000500 " 

95*0  DBTB  "©200090000" 

955©  DBTB  "0011000800" 

9550  DBTB  "©500000000" 

9570  DBTB  "0900000000" 

9530  DBTB  "0000000000" 

9390  REM  PAUSE  ROUTINE 

9900  POKE  23692,-1:  IF  RND > -  5  TH 

EN  GO  TO  9950 

9905  FOR  I=RND*10  TO  RND+30+10  S 
TEP  .  5 

991©  BEEP  0.03,1 

9920  NEXT  I 

9930  PRINT 

99*©  RETURN 

995©  FOR  1=1  TO  5© 

9950  IF  RND>.7  THEN  BORDER  RND+7 
997©  NEXT  I 
9930  BORDER  1 
9990  GO  TO  9930 


Now  that  you've  survived  (or  otherwise)  in  CASTLE  DREAD 
Mark  I,  you  may  want  to  save  it  and  make  the  following  changes  to 
produce  Mark  II  which  uses  a  more  complicated  map.  Modify  the 
following  lines  and  you're  ready  to  start  tackling  the  whole  thing 
again.  Unfortunately  for  conservationists,  the  Contoured  Garden 
(which  was  more  like  an  interior  courtyard  in  the  first  castle)  has 
had  to  be  moved  outside.  At  least,  it  can  still  be  seen  out  of  the 
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windows,  but  you  cannot  see  other  rooms  across  it,  so  it  can't  be 
used  so  easily  to  help  you  get  your  bearings. 

First,  change  the  DATA  statements  as  follows: 


957©  DRTR 
9580  DRTR 
9590  DRTR 
960©  DRTR 
9610  DRTR 
9620  DRTR 
9630  DRTR 
964.0  DRTR 
965©  DRTR 
966©  DRTR 
967©  DRTR 
9660  DRTR 


*’0000020000“ 
”0407000000" 
*’0000000700” 
”0002050000M 
”  ©0060004.©©  " 
**  0500100900  ** 
••  020003 0©00” 
“0911000000“ 
"  000606080© 11 
•*8012000600“ 
*"  ©600120000  " 
,’0000000800“ 


Now  you  need  to  change  parts  of  the  room  description.  To  make 
it  easy  to  modify,  I've  added  the  new  words  in  capital  letters.  Note 
that  you  do  not  need  to  change  anything  in  line  8030. 

3000  REM  ROOM  CONTENTS 
3010  XF  Z  = 1  THEN  PRXNT  "You  are 
at  the  entrance  to  an","ancient, 
forbidding-looJtin9',,"cast  le  .  Yo 
u  are  standing  on","the  WEST  sid 
e  of  the  cast  te/‘/'and  as  you  to 
on  EfiST",  "towards  the  cruabling'1 
/'structure,  you  notice  the“,"en 
trance  portal  is  open”/'and  ungu 
arded" 

3020  IF  Z  = 2  THEN  PRINT  "You  are 
in  the  entrance  hall,", "whi ch  is 
hung  with  rich","/abrics.  Doors 
lead  to  the", "NORTH  and  the  sou 
th":  REM  DELETE  REST  OF  ORIGINAL 
LINE 

3030  IF  Z=3  THEN  PRINT  “This  is 
only  a  store  room .  ,  "There  is  a 

single  exit,  bacK","the  way  you 
came  in,**, “to  the  west” 

SS4-0  IF  Z  =4-  THEN  PRINT  "This  SO 3 
ti  room,  whi  ch** ,  "  fea  tures  an  orn 
ate  s cu Ip ture “ , ”o f  the  soon  godd 
ess  on  a", "pedestal  in  the  north 
-east"  ,  "corner  ,  is  the  Royal",**P 
resence  Chamber.  Doors  lead”, "to 
the  south,  the  ERST  and", "THE  W 
XNDOU  OVERLOOKS  THE" , "CONTOURED 
GARDEN" 

3050  IF  Z  =5  THEN  PRINT  ” The  Hall 
of  Plots,  a  ", "wooden -pane l led  r 
oca”  ,  "redo  lent  with  whispers  and 
"rumours ,  with  exits  to  the  WE 
ST**, "and  to  the  south  from  which 
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"/'co»es  the  see  1 1  of  sulphur  an 
'd  " ,  '“a  weird  chanting.  THE  WINDOW 
","IN  THE  NORTH  WALL  OUERLOOKS"  , 
"THE  CONTOURED  GARDEN “ 

8060  IF  Zs6  THEN  PRINT  “YOU  have 
entered  the  Wi zard 's ", “Den ,  wit 
h  a  cauldron  bu bbling", “over  a  f 
ire  with  green  fiames","in  the  s 
outh  west  corner “This  room  re 
els  of  burni ng " , "su  iphur ,  and  th 
a  echo  o  f  **  ,  “an  ci  en  t  spells.  You 
can  leave", “to  the  north,  the  WE 
ST" , "or  to  the  east" 

SS70  IF  Z  —7  THEN  PRINT  "YOU  find 
yourself  in  a  p  lace" , “whi ch  see 
*s  quiet  and  peace fu i .", “This  is 
the  castle's  Pi c ture " , "Ga l lery , 
with  a  large  pa i n t i ng “ , "o f  the 
legendary  Gua r di an " , "o f  the  BLac 
it  Lagoon  to  the", “left  of  the  DO 
OR  in  the", "NORTH  wa  l  l . " , , “EX i tS 
from  the  Gallery  are”, "to  the  n 
or th  and  to  the  EAST" 

S0SO  IF  Z=8  THEN  PRINT  “This  is 
the  most  aagni f i cen t " , "room  in  t 
he  castle,  the", "Great  Hall,  wit 
h  a  aassi ve ", "hammer beam  roof.  Y 
ou  can",  "leave  it  by  the  doitble 
doors", "to  the  SOUTH,  or  by  thos 
£  to", "the  NORTH  FROM  WHERE  you 
can", "hear  music  playing.":  REM 
DELETE  REFERENCE  TO  GARDEN 
3090  IF  Z=9  THEN  PRINT  "Sounds  O 
f  a  string  quar te t " , " f i l l  the  ro 
o» ,  the"  ,  "musi ci ans '  chamber.  Yo 
u  can", "leave  by  doors  to  the  Efl 
st  or", "by  one  to  the  south" 

S095  REM  NOTE  THAT  ' IF/THENs ' 
REMOVED  FROM  NEXT 
TWO  LINES 

6100  IF  Z=10  THEN  PRINT  "YOU  are 
now  in  the  Sanctuary  of","Silen 
ce,  a  room  whose ",“ ca  imness  may 
be  a  de cep t i on . " , "The  room  is  da 
rap  and  cold.  An", "exit  leaves  th 
e  room  to  the", "WEST  and  one  lea 
ves","to  the  south" 

6110  IF  Z=ll  THEN  PRINT  "This  mu 
st  be  the  Vestibule" ,"of  Sighs, 
a  dank  and  c  l  ammo "." room  where  t 
egend  says  the ” , "Gua r d i an  of  the 
51  a c K ", "Lagoon  can  sometimes  be 
".."heard  at  night.  There  is  a"," 
door  to  the  north  and", "one  to  t 
he  EAST" 
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There  is  no  reason  at  all  why  you  cannot  continue  to  work  with 
this  program,  developing  as  many  versions  of  CASTLE  DREAD  as 
you  like.  You  can  stick  with  the  same  room  names  and  the  same 
number  of  rooms  (12),  working  out  your  own  map  and  relevant 
DATA  and  PRINT  statements,  then  throwing  away  the  map  and 
trying  to  forget  its  detai  Is  as  you  enter  a  castle  of  your  own  creating. 
You  may  prefer  to  swap  castles  with  friends  and  attempt  to  map  out 
the  realities  they  have  encoded  in  their  own  variations  of  my 
program. 

Although  you  need  to  produce  a  world  that  is  mappable  (for 
without  this  you  may  as  well  just  be  pressing  ENTER  and 
generating  PRINT  statements),  there  is  no  reason  why  you  cannot 
make  your  room  inter-connections  as  fiendish  as  you  can  manage 
in  two  dimensions.  It  is  also  relatively  simple  to  add  more 
monsters,  whether  they  are  to  crowd  out  the  original  castle,  or 
more  sparsely  populate  some  new  castle  of  your  own  devising. 

Once  you're  confident  with  this  you  can  double  the  number  of 
rooms,  increasing  the  BS  array  to  take  account  of  this  and — of 
course — adding  to  the  DATA  statements  which  are  fed  into  the 
elements  of  BS,  and  the  PRINT  statements  which  link  in  with  each 
room.  You  should  not,  however,  tackle  this  until  you're  fully 
conversant  with  both  my  original  map  and  the  way  it  is  encoded, 
and  you've  worked  on  a  few  variations  of  CASTLE  DREAD  with  1 2 
rooms.  Monsters  are  held  within  the  MS  array. 

Perhaps  the  easiest  changes  to  make  to  the  original  program  are 
to  the  contents  of  the  chest,  the  effect  of  drinking  the  magic  potion 
and  the  result  of  reading,  or  attempting  to  read,  the  'papyrus  scroll'. 
At  the  moment  the  program  will  not  present  the  scroll,  the  'small, 
gilded  safe'  or  the  potion  more  than  once  in  a  game,  and  only  four 
chests  will  be  discovered  in  any  particular  castle  layout.  However, 
while  the  program  will  not  produce  more  than  four  chests,  there  is 
no  mechanism  in  the  program's  present  form  for  ensuring  that  the 
same  things  don't  leap  out  of  different  chests  every  time  you  open 
them.  (Once  you've  been  nipped  on  the  throat  by  four  harpies, 
each  of  which  will  reduce  your  STRENGTH  attribute,  you  may  wish 
there  was  some  way  of  stopping  them  from  breeding  in  every 
chest  in  the  castle.) 

You  may  have  felt  that  to  some  extent,  it  is  a  pity  to  have  a 
computer  with  the  graphics  capabilities  of  the  Spectrum  and  have 
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all  of  the  output  in  written  form,  even  if  it  is  highlighted  with 
FLASH,  INVERSE  and  BRIGHT.  There  is  no  doubt  that  some 
players  prefer  programs  which  draw  up  complete  pictures  of  each 
scene.  However,  the  listing  is  already  very  long  and  I  believe  that  if 
it  was  much  longer  few  would  face  typing  it  in.  Programs  which 
create  detailed  pictures  tend  to  be  a  maze  of  DRAW  and  PLOT 
statements  and  you  need  a  great  number  of  lines  to  produce  a 
worthwhile  picture,  far  more  than  I  feel  is  warranted.  By  all  means 
dress  up  the  program  to  your  heart's  content  once  you  have  it 
running.  Even  if  you  don't  want  to  add  new  rooms,  monsters  or 
contents,  you  may  still  want  to  enhance  it  by  adding  pictures.  I'd  be 
very  interested  in  seeing  graphic-enhanced,  or  any  other  variations 
of  this  program  which  you've  developed.  Please  send  them  to  me 
care  of  the  publisher.  Who  knows,  we  may  be  able  to  include  the 
best  ones  in  subsequent  editions  of  the  book. 

Even  if  you  don't  want  to  go  so  far  as  to  include  vast  blocks  of 
code  which  draw  complete  rooms,  you  may  wish  to  give  rooms 
specific  colours,  and  you  may  want  particular  monster  descriptions 
to  be  always  printed  in  the  same  colour  combinations,  perhaps 
with  a  distinctive  'signature  tune'.  Notice  the  lines  from  2010  to 
2050.  You  can  easily  insert  the  colour  information  and  the  music  for 
the  signature  tune  in  these  lines,  following  'IF  Q  =  THEN'.  Another 
alternative  to  full  detailed  graphics  of  each  room  is  to  user-define  a 
block  of  four  graphic  characters  for  each  of  the  five  monsters  and 
use  these  to  produce  a  characteristic  border  when  the  particular 
monster  is  mentioned.  You  could,  in  fact,  fill  the  whole  screen  with 
multiples  of  this  group  of  defined  graphics  before  you  clear  the 
screen  to  the  relevant  print  statement  and/or  signature  tune. 

Other  scenarios 

Even  if  you  have  not  totally  worked  out  the  map  used  in  CASTLE 
DREAD  but  you'd  like  to  make  the  adventure  program  more  your 
own,  there  are  significant  changes  you  can  make.  Assuming  you 
keep  the  exits  and  entrances  in  the  same  places,  there  is  no  reason 
why  you  can't  call  the  rooms  anything  you  like.  You  could,  for 
example,  set  the  whole  adventure  on  board  an  abandoned  space 
ship,  left  in  a  slowly  decaying  orbit  out  beyond  the  asteroid  belt  by 
an  unknown  alien  race.  Instead  of  (or  as  well  as)  'monsters',  you 
could  have  dangerous  alien  artifacts,  like  semi-sentient  androids 
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whose  job  is  to  patrol  the  ship,  even  though  the  race  they  are 
guarding  has  long  since  departed.  The  object  of  your  search  could 
be  the  power  drive,  which  you  would  expect  to  be  an  example  of  a 
radically  advanced  technology.  Once  you  find  the  room  (the  one 
which  is  the  Black  Lagoon  in  Castle  Dread),  you  find  a  massive. 
Spectrum-controlled  defence  system  which  must  be  defeated. 

Instead  of  MAGIC,  STRENGTH  and  WISDOM,  your  attributes 
could  be  more  down  to  earth  (if  you'll  excuse  the  phrase,  out  here 
beyond  the  Belt),  including  such  things  as  oxygen,  food  rations  and 
shots  left  in  your  laser  gun.  You  can  change  not  only  the  nature  of 
the  attributes  with  which  you  tackle  the  adventure,  but  add  more 
(such  as  charisma,  ability  and  stamina).  The  player  could  be  allowed 
to,  say,  allot  90  points  as  he  or  she  wishes  among  the  attributes  at 
the  start  of  the  game,  rather  than  have  them  determined  by  a  roll  of 
dice  (or  the  random  number  generator  which  is  pretty  much  the 
same  thing). 

Another  way  to  allot  starting  attributes  is  to  allow  your  player  to 
choose  the  type  of  person  he  or  she  will  be  (cleric,  magician,  ogre, 
fighter,  thief,  elfling  or  whatever).  Specific  'clusters'  of  attributes 
come  with  each  identity. 

Our  original  program  framework  can  be  used  to  house  a  pyramid 
which  you  are  exploring  before  it  is  destroyed  to  make  way  for  a 
new  dam  on  the  Nile.  You  go  through  various  tunnels,  exploring 
chambers  within  the  pyramid,  until  you  come  to  the  burial  chamber 
(the  Black  Lagoon  in  Castle  Dread)  where  you  must  overcome  the 
curse  of  the  dead  Pharaoh. 

From  these  ideas,  you  can  see  how  easily  an  adventure 
framework  can  be  elaborated  and  enhanced  so  that,  eventually,  it 
bears  little  or  no  resemblance  to  your  starting  program.  Once 
you've  gained  some  confidence  in  manipulating  encoded  realities 
in  this  way.  you  will  probably  be  itching  to  write  your  own 
programs.  You  can  gain  a  lot  of  ideas  by  looking  at  commercial 
adventures  available  for  the  Spectrum,  or  for  other  computers. 
Some  of  these,  perhaps  surprisingly,  are  not  based  on  'coherent 
realities'  and  depend  more  on  random  numbers  than  on  any  real 
skill  in  mapping  or  memory  by  the  player. 

You  may  wish  to  experiment  with  interweaving  different 
programs,  adding  a  3-D  maze  atone  point,  ora  reaction  test  or  two 
to  see  how  you  fare  in  combat. 
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Finally,  keep  in  mind  that  when  writing  an  adventure  program  it  is 
essential  to  ensure  that  there  is  a  clear  purpose  to  the  game 
(wandering  about  aimlessly,  collecting  treasure  and  killing  dragons, 
is  worthless  and  eventually  very  boring,  unless  the  player  is  on  the 
way  to  solving  some  final  problem,  getting  some  ultimate  treasure 
or  escaping  from  the  torture  chamber  alive).  As  well  as  a  purpose, 
the  activities  within  the  adventure  should  be  related  to  that  final 
purpose. 

In  CASTLE  DREAD,  you  try  to  acquire  enough  attribute  points 
and  money  (which  can  be  exchanged  for  attribute  points  before  the 
battle  with  The  Guardian)  to  handle  the  final  melee  and  still  have 
ten  points  in  reserve,  so  each  encounter  (such  as  opening  a  chest, 
for  the  chance  of  making  money,  or  tackling  a  monster  which  has  a 
very  low  rating  in  some  particular  attribute)  is  seen  to  be  related  to 
the  main  purpose  of  the  game.  Of  course,  there  is  a  great  deal  of 
fun  in  decoding  the  map  of  an  adventure  and  in  just  plain  wandering 
around  in  a  counterfeit  reality,  but  it  makes  much  more  point  if  the 
player  knows  why  he  or  she  is  exploring  this  most  unusual 
environment. 

If  you  want  to  learn  more  about  role-playing  games,  with  the 
intention  of  using  your  new  ideas  in  program  developments  of  your 
own,  you  may  find  the  following  three  books  useful  (I  was  reading 
the  first  one,  in  fact,  when  I  thought  of  the  scenario  for  CASTLE 
DREAD): 

Fantasy  Role  Playing  Games  Holmes,  Eric  J.  (Arms  and  Armour  Press,  1981) 

Dicing  With  Dragons ,  an  Introduction  to  Role-Playing  Games  Livingstone,  Ian 
(Routledge  &  Kegan  Paul,  1982) 

What  is  Dungeons  and  Dragons*  -  Butterfield,  John,  and  Honigmann,  D.  (Penguin 
Books  Ltd.,  1982)  (* Dungeons  and  Dragons  is  a  registered  trademark  registered  in 
the  U.K.  in  the  name  of  T.S.R.  Hobbies,  Inc.,  of  Wisconsin,  U.S.A.,  who  also  hold 
American  rights  to  the  name). 


JOE  CAPITALIST,  JNR.  (Lemonade  Stand) 

You  are  Joe.  Your  mission:  to  run  a  lemonade  stand  and  make  a 
fortune  (or  at  least,  not  go  bankrupt).  The  program  leads  you 
through  the  decisions  you  need  to  make,  step  by  step,  and  makes 
particularly  effective  use  of  the  Spectrum's  colour  and  high 
resolution  graphics  to  enliven  the  program  as  it  unfolds.  It  even 
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features  a  portrait  of  you,  as  Joe,  behind  the  counter  of  your 
lemonade  stand.  Don't  be  misled  by  the  sample  printouts  shown 
here;  the  program's  graphics  are  far  more  effective  than  the 
printouts  suggest. 

Once  the  program  gets  under  way,  it  will  be  pointed  out  to  you 
that  you  are  now  the  owner  of  a  drinks  stand  selling  lemonade. 
Each  day  you'll  be  told  the  weather  forecast.  Hot  weather  means 
many  sales;  a  dull  day  suggests  that  lemonade  will  not  hit  the 
number  one  spot  on  today's  chart  of  the  Top  Ten  Beverages.  From 
the  forecast  and  from  the  marketing  knowledge  you  will  gradually 
acquire  by  running  the  program,  you  have  to  decide  how  many 
glasses  of  lemonade  you  will  make.  You'll  be  told  how  much  each 
glass  costs  to  make.  You  must  then  decide  what  price  you'll  put  on 
each  glass  of  lemonade.  Of  course,  higher  prices  will  tend  to 
depress  sales.  At  the  start  of  the  game,  your  stand  will  cost  you 
50p  rent  a  day.  This  will  become  more  expensive  as  time  goes  on, 
due  to  inflation.  Inflation  will  also  erode  your  profits,  as  raw 
materials  increase  in  price. 

The  sample  run  shows  the  kind  of  information  you'll  have  to 
work  with  each  day:  mild  weather,  a  raw  material  price  of  2p  per 
cup  of  lemonade,  rental  of  50p,  and  the  fact  that  your  capital  stands 
at  £20.  From  this  report  you  decide  how  many  glasses  of  lemonade 
you  will  make,  and  this  number  of  glasses  appears.  The  program 
now  draws  the  drink  stand,  complete  with  a  number  of  full  glasses 
of  lemonade,  with  a  little  sign  showing  the  retail  price. 

Right  before  your  eyes  the  cups  of  lemonade  are  sold  (that  is, 
they  are  emptied).  At  the  end  of  the  day,  the  shutter  rolls  down  on 
your  stand  and  you  are  told  how  well  you  have  done  in  the  program. 
"You  sold  20  cups;  You  took  £1 ;  you  made  20  cups  which  cost  you 
£0.4;  rent  cost  you  50p;  you  have  profited  by  £0.1 "  is  the  kind  of 
report  you'll  get. 

The  DATA  statements  in  lines  1 5  and  20  represent  the  empty  (e) 
and  full  (f)  glasses  respectively.  The  next  DATA  statement,  line  25, 
contains  the  weather  reports  and  the  numbers  which  govern  the 
effect  certain  types  of  weather  will  have  on  sales.  The  INK  colour  is 
set  to  black,  the  screen  is  set  to  normal  brightness  and  cleared  (line 
45)  before  lines  50  and  60  define  the  graphics,  reading  the 
character  in  line  50,  and  POKEing  the  relevant  DATA  in  line  60. 
After  a  BEEP  in  line  70,  a  function  is  defined  in  line  80  which  is  used 
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in  line  840  to  determine  how  many  glasses  of  lemonade  are  sold 
per  day. 

Lines  100  to  160  print  out  the  instructions  and  after  a  pause  (see 
PAUSE  900  in  line  160),  the  words  "Good  luck!"  appear.  Line  170 
produces,  with  FLASH,  the  familiar  statement  "Press  any  key  to 
begin " .  PAUSE  0  holds  the  display  indefinitely  until  a  key  is  pressed 
(the  ZX81  equivalent  was  PAUSE  4E4  or  PAUSE  40000)  and  the 
screen  is  cleared. 

The  variables  are  initialized  in  line  160,  using  explicit  names  so 
you  know — when  tracing  through  the  program — what  the  various 
lines  do.  Your  starting  money  (variable  name  cash)  is  set  at  2000; 
the  weather  at  4;  the  lemonade  raw  materials  price  at  2;  and  the 
rent  at  50.  Lines  200  to  220  choose  the  weather  and  line  230  starts 
the  report.  Line  250  RESTORES  the  data  pointer  to  line  25  which 
holds  the  weather  words  and  related  numbers.  The  numbers 
(given  the  names  from  and  to)  are  used  in  line  840 
which  works  out  how  successful  you've  been  on  a  particular  day. 

You  are  told  the  state  of  your  finances  in  line  290  and  asked  how 
many  cups  of  lemonade  you  wish  to  make.  If  you  suggest  a 
negative  number,  line  302  rejects  your  answer  and  returns  you  to 
line  300  to  answer  again.  Line  305  sends  the  Spectrum  scuttling  to 
the  subroutine  from  line  9000  which  checks  to  see  if  you  have 
enough  money  to  buy  as  many  cups  as  you  have  ordered.  If  you 
have,  the  subroutine  returns  instantly.  Line  9010  is  reached  if 
you've  tried  to  buy  more  cups  than  you  have,  and  it  points  this  out 
to  you  ("you  do  not  have  enough  money  to  make  that  many")  and 
asks  for  a  new  figure.  This  is  checked  in  line  9000  and,  if  the  figure 
entered  is  acceptable,  the  RETURN  at  the  end  of  line  9000  is 
activated.  If  not,  the  program  'falls  through'  again  to  line  901 0  and 
the  question  is  asked  again.  (While  we  are  at  this  end  of  the 
program,  look  at  line  9999.  This,  in  fact,  is  not  part  of  the  program  as 
such,  but  was  used  when  the  program  was  being  developed.  It  is 
used  whenever  the  person  developing  a  program  decides  to  have  a 
look  at  the  program  to  date.  It  resets  the  BACKGROUND,  PAPER 
and  INK  colours  to  normal,  clears  the  screen  and  lists  the  program. 
The  RETURN  at  the  end  means  the  listing  can  be  called  from  within 
the  program  as  a  subroutine  if  desired.  You  may  find  that  including 
a  line  like  this  at  the  end  of  a  program  may  be  of  help  when  you  are 
developing  a  complex  program.) 
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Line  307,  on  the  return  from  the  checking  the  money  subroutine, 
determines  (quite  sensibly)  that  if  the  number  of  cups  ordered  is 
less  than  one,  then  the  number  sold  must  be  zero  and  the  program 
jumps  to  line  950,  leaping  over  the  selling  part  of  the  listing. 

If  you  prove  by  the  number  of  cups  you  have  ordered  that  you  are 
serious  about  this  business,  then  the  program  prints  out  (line  310) 
the  number  of  glasses  of  lemonade  you  have  ordered  and  then 
prints  this  number  of  full  glasses  with  the  loop  in  line  320.  Line  330 
asks  you  to  enter  your  selling  programme  for  the  day,  with  line  333 
rejecting  prices  which  are  greater  than  99  or  less  than  one.  After  a 
short  BEEP  (line  335),  the  selling  price  is  printed  and  you  are  asked 
(line  350)  to  "Press  any  key  to  start  selling".  There  is  a  BEEP,  and 
the  program  waits  (using  the  PAUSE  0)  until  you  touch  another  key. 
This  touch  is  acknowledged  with  another  BEEP  (at  the  end  of  that 
line)  and  then  line  360  clears  the  screen,  turns  the  brightness  on 
and  wipes  out  the  contents  of  the  screen  with  the  i  loop. 

Now  comes  the  most  visually  interesting  section.  This  long  and 
complicated-looking  routine,  from  lines  370  to  690,  creates  the  first 
picture  of  part  of  Joe  and  his  stand,  complete  with  shelves  for  the 
glasses  of  lemonade.  The  next  section,  using  the  variable  count 
(which  is  set  equal  to  the  variable  cups  in  line  695)  prints  out  the  full 
glasses  of  lemonade.  The  variable  count  is  decremented  by  one  in 
715  and  checked  until  this  equals  zero,  when  the  computer  knows 
all  the  cups  have  been  printed.  Once  this  is  done  and  line 
700  has  determined  that  all  the  cups  have  been  placed  on  display  to 
attract  eager  customers,  the  lines  from  730  to  830  complete  the 
drawing  of  the  lemonade  stand. 

Line  840  activates  the  function  defined  in  line  80,  to  work  out 
how  well  your  day's  transactions  have  gone.  The  loops  from  line 
860  replace  the  full  glasses  with  empty  ones  on  the  shelves.  If  all 
the  glasses  have  been  sold,  the  "SOLD  OUT"  sign  is  displayed 
(line  900).  After  a  pause  for  a  couple  of  seconds  at  the  start  of  line 
910,  the  shutter  rolls  down  on  the  lemonade  stand.  Another  pause 
at  the  beginning  of  line  940  and  then  the  computer  obligingly  prints 
up  a  sales  report  for  the  day.  "You  sold  . . .  cups.  You  took  £...'' 
and  so  on. 

The  all-important  profit  (variable  name  prof)  is  calculated  in  line 
1000.  Lines  1010  to  1030  use  the  SGN  function  to  determine 
whether  the  day  was  a  success  or  a  disaster  in  terms  of  profit. 
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(SGN,  sign,  returns  — 1  if  thenumberis  negative,  +1  if  it  is  positive, 
and  0  if  the  number  is  zero.) 

Inflation  strikes  alarmingly  in  line  1050,  increasing  your  rental  by 
up  to  lOp,  10%  of  the  time.  In  line  1060  the  random  number 
generator  ensures  that  around  10%  of  the  time,  again,  the  raw 
material  cost  (variable  name  lemonade)  will  be  increased  by  one. 
Line  1065  waits  for  you  to  press  a  key  to  continue.  If  line  1067 
discovers  you  have  no  money  left  (that  is,  that  cash  is  less  than 
one)  then  the  program  goes  to  1500  to  terminate  gracefully.  If 
you're  still  solvent,  you  get  another  crack  at  the  fickle  market  of 
high  finance  beverages,  with  a  return  to  line  200  to  face  another 
day  of  gruelling  decision-making. 

The  mournful  message  "CLOSED.  You  are  now  bankrupt  and 
your  stand  has  been  sold  to  pay  for  losses"  appears  (lines  1500  and 
1510)  and  then  line  1520  continually  calls  itself,  effectively 
terminating  the  program  without  putting  report  code  on  the 
screen.  You'll  need  BREAK  to  get  out  of  this  line. 

You  are  the  owner  of  a  drinks 
stand  setting  lemonade .Each  dag 
you  wilt  be  to  id  the  forecasted 
weather  and  fro*  that  you  will 
decide  how  many  glasses  to 
sake.You  wilt  also  be  told  how 
much  each  cup  made  costs  you  and 
from  that  you  wilt  decide  the 
setting  price. Rent  of  the  site 
costs  5®p  a  day  but  wilt  becoee 
more  expensive  with  inflation 
as  wilt  the  testonade. 


Adventure/Simulations  151 


Today's  Report 
Weather  :  Hi  id 

Each  cup  costs,  you  2p  per  cup 
Rent-.  5©p 

You  have  £2©  available 

cu p  s :  yyyyyyyyyyyyyyyyyyyy 


LeBonade  ©tend 
Sales  Report 


You  SO  Id 

20  cups 

YOU 

toot 

£1 

You  made 
cost  you 

2©  cups  which 
£0.4- 

Rent 

cos  t 

you  5©p 

You  have 

profited  by  £©.l 

Lemonade  Stand  sraphits 

Y  . ..  Graphic  ‘ F  ‘ 
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12  POKE  23602 , 123 

15  DRTR  "e  ",0,SIW  100610010  ,B  IN 

1000O010, BIN  01O00100 , BIN  00101 
©00, BIN  00010000 , SIN  00010000 ,BX 
N  01111100 

20  DRTR  *'  f  ”  ,  0  , BIN  10000010  , BIN 

11111110, BIN  011111O0, BIN  00111 
000, BIN  00010000, BIN  00010000, BX 
N  ©1111100 

25  DRTR  "Stormy  "  ,10,30,  "Wet"  ,2 
5, 4.0,  “Over  CSS  t  “  ,  35,50,  "Mi  Id"  ,  4.5  , 
70,  “Ua  r»  "  ,65, 120,  "Hot  "  ,  100,  ISO  ,  '* 
He a  twa ve " , 200 , 30© 

4-5  INK  O:  BRIGHT  O;  CLS 

5©  FOR  J  =1  TO  2:  RERD  S$.  FOR 
i  =0  TO  7 

60  RERO  a:  POKE  USR  3$4j ,3;  HE 
XT  i :  NEXT  J 

70  BEEP  . S , © 

©0  DEF  FN  p  f p  ,  q,.»  =qy  fp/lOB)  -10O 

1©0  PRINT  PRPER  6;  "  Less 

onade  Stand  "  '  "  vow  er 

e  the  owner  or  a  drinfcs" 

110  PRINT  "£. land  selling  lemona 
de.Each  day "‘"you  »i U  be  told  t 
he  forecasted" 

120  PRINT  "weather  and  from  the 
t  you  wi l l " ' "de c i de  how  many  gia 
sses  to" 

13©  PRINT  "make. You  will  also  b 
a  told  how" '"much  each  cup  made 
costs  you  and" 

14.0  PRINT  "fro®  that  you  wilt  d 
ecide  the " ' "se  l  l  i ng  price. Rent  o 
f  the  site" 

15©  PRINT  "costs  S0P  a  day  but 
will  be coae" ' "more  expensive  wit 
h  infiati on " 

160  PRINT  "as  will  the  lemonade 
.  PAUSE  900.-  PRINT  INK  2;" 

Good  LUCll  *" 

170  PRINT  FLRSH  1;  ‘"Press  any  S 
ey  to  begin":  PAUSE  ©:  OLS 

160  LET  cash  =2000:  LET  weather® 
4.:  LET  Lemonade  =2:  LET  rent  =5© 
200  let  weather =»eather*iNT  f RN 
D*3-l) 

210  IF  weather =0  THEN  LET  weath 
er= l 

220  IF  weatheraS  THEN  LET  weath 
e  r  =7 

230  PRINT  PRPER  6; "  Le» 

onade  stand 

24.0  PRINT  INK  7;  PRPER  1;'" 

Today's  Report 
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25©  RESTORE  SS;  FOR  i =1  TO  weat 
her:  RERO-  D»,tO:  NEXT  i 

2S0  PRINT  - "Weather  ;  INK  I; 

IM$ 

27©  PRINT  '"Each  cup  costs  you 
,B ;  INK  i; Lemonade ; "p  per  cup" 

20©  PRINT  '"Rent:  " ;  INK  I; rent 

;  ”P" 

290  PRINT  ' "You  have  INK  a; ” 

£M;cash/iee;  ink  ©;  "  eves  ta&U" 

300  BEEP  ,5,10;  INPUT  INK  2; "Ho 
w  ©any  cups  do  you  want  to  "  "me 
Re  FLASH  1;  cups 

302  IF  CUpS  <  0  THEN  GO  TO  3©© 

3©5  GO  SUB  9©©©;  SEEP  ,5,5 
307  IF  cups*  a  THEN  LET  SOtd=©: 
LET  prices!;  LET  CUPS=©:  GO  TO  9 
4.5 

31©  INK  6:  PAPER  ©;  PRINT  '*  "CUP 

S  :  ; 

32©  FOR  i =1  TO  CUPS:  PRINT 
:  NEXT  i :  PAPER  7:  PRINT  ' 

333  BEEP  ,5,13:  INPUT  INK  2; "Uh 
at 's  your  selling  price  for  ""'to 
day  FLASH  1;"*?"; price 
333  IF  price? 99  OR  price-:!  THEN 
GO  TO  33© 

335  BEEP  ,1,5 

340  INK  ©:  PAPER  7:  PRINT  ""Lem 
onade  sold  at  "  ,  p  r  i  ce  f  *'p  per  cup 

350  PRINT  FLASH  1;  INK  2;  **'PreS 
s  any  Key  to  start  selling":  SEE 
P  .1,10;  PAUSE  ©:  SEEP  ,5,5 
360  CLS  ;  BRIGHT  1:  FOR  i =16  TO 
21:  PRINT  AT  i  , © ;  ;  " 

" :  NEXT  i 

37©  FOR  i =©  TO  46  STEP  16 
3S0  PLOT  © , i :  DRAU  255,© 

39©  NEXT  i 

4©0  FOR  i =©  TO  23©  STEP  4© 

41©  PLOT  i,©:  DRAW  55,46 
42©  NEXT  i 

43©  PRINT  PAPER  S;AT  3,6; "JOE'S 

Drink  Stand" ;  PAPER  S;AT  9,6;- 

*» 

44©  FOR  i =92  TO  96 

450  PLOT  INK  7; 72, i :  DRAW  INK  7 
: 120,0, -PI/ 12 
460  NEXT  i 

47©  FOR  i *1  TO  6 :  PRINT  PAPER  6 
; RT  9fi ,8; "  ";TAS  24;  PAPER  6; " 


46©  NEXT  i 
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4.90  FOR  i  =1  TO  4. :  PR JNT  PRPER  6 
; RT  15+i ,8;" 

NEXT  i 

4.95  BRIGHT  0 
4-96  INK  3 

50©  FOR  i  =3.12  TO  315 
510  PLOT  64,  i:  DRfiU  136,© 

520  NEXT  i 

530  FOR  i  =64-  TO  399 

54-0  PLOT  i  ,  116 ;  DRAW  4.0,31 

55©  NEXT  i 

560  FOR  i  =115  TO  24-  STEP  -1 
570  PLOT  BRIGHT  8; 288,5:  DfiftW  B 
RIGHT  ©;  4-0,31 
580  NEXT  i 
59©  FOR  i =16  TO  23 

60©  PLOT  BRIGHT  0,200,5:  DRRU  B 
RIGHT  0,4-0,40 
61©  NEXT  i 
615  INVERSE  1 

620  PLOT  PAPER  8 ; 64 , 1 IS :  DRRU  P 
RPER  0; 134,0 

630  PLOT  PAPER  0; 64, 112:  DRRU  P 
RPER  0; 134,0 
640  INK  0:  INVERSE  0 
65©  PLOT  63,16:  DRRU  0,300 
660  PLOT  199 , IS :  DRRU  0 , 96 :  DRA 
U  INVERSE  l;  INK  6;  PRPER  ©,0,4 
670  PLOT  64,15:  DRRU  134,0 
6S0  INK  2:  PLOT  72,79 ;  DRRU  72, 

0 

690  PLOT  72,63:  DRRU  72,0 

695  LET  count =CUPS:  GO  SUB  700: 

GO  TO  730 

700  IF  count =©  THEN  RETURN 
705  FOR  i =11  TO  15  STEP  2:  FOR 
j=l  TO  9 

710  BRIGHT  8:  PRINT  RT  i,3  +  J;''Y 
*•:  BEEP  .1,20 

715  LET  count =count -1 :  IF  count 
=0  THEN  RETURN 
720  NEXT  J :  NEXT  i :  RETURN 
730  PLOT  160,30:  DRRU  35,0, -Pis 
3X2 

740  PLOT  143,43:  DRRU  0,27:  DR R 

U  12,5,-PIxS 

750  PLOT  137,43:  DRRU  0,27:  DRR 

U  —12 , 5 , PI/6 

760  PLOT  156,48:  DRRU  0,20 

770  PLOT  179,43:  DRRU  0,28 

780  PLOT  163,43:  DRRU  8,13:  DRR 

U  8,3:  DRRU  0,3:  DRRU  -3,-13 
790  DRRU  -3,3:  DRRU  0,3:  DRRU  3 
,  -16 

800  PLOT  162,33:  DRRU  30,8,PXy2 
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810  CIRCLE  CIRCLE  171 

gg  g 

' 830  PRINT  RT  17 ,9}  INK  0;  PftPER 

6;  "lehonrde  ";  pr i  ce;  "P" 

84-0  LET  SOtdadNT  (PND»  f  to  -f  TO® 
A  4-fros)  +  fto-f ro»A  A  »8»yPN  p  f tenon 
ade ,pr i ce) 

84.5  LET  SOtd=INT  SOU:  IF  SOld> 
CUPS  THEN  LET  SOtd=CUps 
858  LET  settosotd 
860  FOR  i *1 1  TO  IS  STEP  £ :  FOR 
j=9  TO  17 

870  PRINT  RT  i ,  j  ;  "Y  " :  BEEP  .1,1 


0 


880  LET  seticssetic-l:  IF  seltc 
=0  THEN  60  TO  90© 

890  NEXT  j :  NEXT  i ;  60  SUB  700 ; 

GO  TO  860 

900  IF  soldscups  THEN  PRINT  INK 
0;  PRPER  4-;  RT  17,9; " - SOLD  OUT 


910  PRUSE  100:  FOR  i  =103  TO  *8 
STEP  -1 

920  BEEP  .0£,i-4.S:  PLOT  7 2,i:  D 
RRU  120,0 
930  NEXT  i 

94.0  PRUSE  200:  BEEP  .5,5 

950  CLS  :  PRPER  7:  INK  0:  PRINT 

PRPER  ©;  "  •*;  BRIGHT  1;  "L 

siaonade  Stand";  BRIGHT  0;  " 

*• 


960  PRINT  INK  7;  PRPER  l;-" 

Sates  Report  " 

970  PRINT  * "YOU  sold  INK  l;s 

old;"  cups" 

980  PRINT  -"You  too*  INK  1;" 

£";sold»pri ce/100 
990  PRINT  -"You  Bade  **;  cups;"  c 
ups  which" -"cost  you  ";  ink  1 ; "£ 
cups  *  Ie»onade/100 
995  print  -"Rent  cost  you  ";ren 
t;  "p" 

1000  LET  pro f =so ld*pr i ce-cups*le 
monade -ren  t 

1010  IF  SGN  prof =-i  THEN  PRINT  - 
"You  have  sade  a  INK  s; "toss" 
;  INK  0;"  of  -prof. .*100 

1020  IF  SGN  p  r  ©  f  =©  THEN  PRINT 
You  have  only  broken  even" 

1030  IF  SGN  prof  si  THEN  PRINT  ' " 

You  have  INK  4.;  "profi  ted**;  IN 

K  0;  **  by  £**;profyl00 

104.0  LET  cash scash^pro f 

1050  IF  RND > • 9  THEN  LET  rent=ren 

t+XNT  (RND *10+1 A 
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1060  IF  RNOJ.9  THEN  LET  (CBORSdC 
=  lemonade-*  I 

1066  BEEP  .6,10:  PAUSE  0:  BEEP  . 

5,5 

1067  IF  CBSh-il  THEN  SO  TO  1500 
1070  CLS  :  SO  TO  300 

1500  CLS  ;  PRINT  INK  1;  FLASH  1; 
"  CLOSED 

■  i 

151©  PRINT  you  are  now  ban&r 

upt  and  your  stand  has  been  sold 
to  pay  for  your  tosses." 

1520  SO  TO  1530 
©999  STOP 

9000  IF  cups 4  lemonade  -i  =c  ash  THEN 
RETURN 

9010  INPUT  INK  l; "you  do  not  hav 
e  enough  aoney  to  sake  that  *any 
INK  3; "How  aany  cups  do  you 
want  to  sale  ";  FLASH  l;"?";cups 
9020  GO  TO  9000 
9990  STOP 

9999  INUERSE  O:  PRPER  7:  BRIGHT 
0:  INK  0:  BORDER  7:  CLS  :  LIST 
RETURN 
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SYNTAX 

This  is  an  'intellectual'  game  for  people  who  like  to  play  with  words. 
The  aim  of  the  game  is  to  arrange  ten  phrases  so  that  they  make 
perfect  sense.  On  running  the  program  the  computer  asks  you  to 
wait  a  few  moments  and  in  this  time  it  randomly  arranges  its  store 
of  verbs,  nouns  and  adjectives  into  ten  sentences  that  definitely  do 
not  make  sense.  It  is  then  up  to  you  to  arrange  these  sentences 
into  proper  English. 

You  will  see  a  cursor  in  the  right-hand  side  of  the  screen  with  the 
number  of  the  phrase  it  is  pointing  to.  You  may  move  the  cursor  up 
and  down  using  the  keys  "5"  and  ''8''.  By  pressing  any  of  the  keys 
"1"  to  "5",  you  can  highlight  words  in  the  particular  phrase  at 
which  the  cursor  is  pointing,  that  is,  if  you  press  "3"  then  the  third 
word  in  the  phrase  will  be  highlighted. 

You  have  a  store  of  ten  sentences  which  are  empty  at  the 
beginning  of  the  game.  To  enter  words  into  these  'empty'  sen¬ 
tences  you  must  highlight  a  word  (as  described  in  the  preceding 
paragraph)  and  press  ENTER.  The  computerwill  then  print  up  all  of 
your  sentences  with  the  new  word  added.  The  computer  will  auto¬ 
matically  put  your  word  into  the  right  place  in  your  sentence.  On 
pressing  ENTER  the  computer  will  ask  you  into  which  phrase  you 
wish  to  put  the  word.  If  you  want  the  word  to  be  entered  into 
phrase  number  5  then  naturally  you  enter  the  number  5. 

Eventually  you  will  have  a  store  of  ten  of  your  own  sentences 
which  you  must  jiggle  about  until  the  sentences  are  coherent.  The 
computer  will  not  tell  you  if  you  have  the  right  combination  of 
words  so  it  is  up  to  you  to  judge  whether  your  sentences  are 
correct. 

Line  20  selects  a  position  within  the  list  of  numbers  to  be  given 
by  the  random  number  generator  and  line  30  sends  the  computer 
to  line  1000,  where  the  arrays  are  DIMensioned  and  variables 
assigned.  Lines  1040  and  1050  find  empty  elements  of  the  aS 
array,  going  back  to  1 040  to  select  a  new  one  if  the  first  chosen  is 
not  empty.  Line  1060  reads  the  next  string  from  the  DATA 
statements  from  line  9000.  An  element  of  the  I  array  is  set  equal  to 
the  length  of  the  word  just  read,  and  then  this  word  (bS)  is  assigned 
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to  an  element  of  the  a$  array  (line  1 070). 

After  xS  is  set  equal  to  the  string  "aS"  (note,  not  a$,  but  "a$"; 
the  difference  will  be  clear  to  you  when  you  look  at  line  1 1 00),  line 
1110  directs  attention  to  the  subroutine  starting  at  line  200.  The 
screen  is  cleared  (line  200)  and  the  interwoven  a  and  b  loops  print 
out  the  randomly  jumbled  phrases,  as  the  sample  run  indicates. 

The  RETURN  at  line  260  sends  the  Spectrum  back  to  line  1160 
where  variables  u,  p  and  n  are  initialized.  These  will  be  used  in  a 
moment  to  move  the  words  around  the  screen.  After  the 
subroutine  from  line  100  has  printed  the  cursor  (the  solid  square  at 
the  end  of  line  150),  the  routine  from  1195  accepts,  and  acts  on, 
your  wishes  regarding  moving  stuff  around.  Line  1 205  sets  iS  equal 
to  the  key  you're  pressing  ("5"  or  "8")  to  move  the  cursor  up  or 
down  the  sentences.  Line  1260  accepts  your  choice  of  phrase 
within  the  indicated  sentence  and  after  xS  has  been  set  equal  to 
"sS"  (again,  not  sS),  line  1300  directs  the  program  back  to  the 
subroutine  from  line  200.  Lines  1340  and  1350  wait  until  you  are 
not  touching  a  key,  before  sending  action  back  to  1 100  where  the 
sorting  out  process  continues. 


5  REM  S*Jf)tSX 
10  RESTORE 
20  RnNPOHIZE 
30  30  TO  1S00 
10©  LET  t =© 

11©  LET  v=U,'-2*l 

12©  FOR  b=3ftn>31  +1  TO  D-2 

13©  LET  £=6  +  1  !b,V.i  tl 

14.0  HEX!  fa 

15©  PR  INT  RT  u  +  fn  .->3.1  ,  e  *2*  fn  <  40  ; 
OUER  i ; 


16©  RETURN 
200  CL5 

2©5  FDR  3=1  TO  11 
207  PRINT  "B  ■; 

21©  FOR  fc=l  TO  5 

22©  PRINT  URi_$  (bf3,  TO  t  ( 

c<  5 }  )  M  ^  *  '*  ••  ■ 

2-38  IF  b=3*THEN  PRINT 
24.8  NEXT  b 
24-5  PRINT 
258  NEXT  a 
250  RETURN 

1000  PRINT  RT  1 1,0;  "PLEB3JE  UQJT 

R  FEU  MOMENTS - " 

1005  DIM  iffSfllfia.) 
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1010  d th  a*  15,22,20.1 

1015  DIM  1(5,113 

1020  FOR  3-2  TO  5 

2030  FOR  *>  =  2  TO  2  2 

104-0  LET  C  =INT  fRNr>#113  fl 

2050  IF  3$(5f  C,13  O"  -  THEN  GO  T 

O  104.0 

2060  REfiD  b$ 

LET  L  C3,  Cl  =LEM  b$ 

LET  3$ f  3  #  Cl  =  b$ 

NEXT  b 
NEXT  3 
LET 

GO  SUE  BOO 
LET  U  =0 
LET  p  =30 
LET  rs  =2 

PRINT  FLRSH  2;fiT  U,p;"  <fi;ST 


2065 
207© 
2060 
2090 
2200 
1110 
2260 
2270 
2260 
2290 
R$  n 
2299 
2295 
95 
2200 
0 

2205 
2220 
2225 
2990 
2930 
*  =  "7 


GO  SUB  2  00 
IF  INKEY  *<>**■* 

IF  INKEY$  =  ' 


THEN  GO  TO  22 
THEN  GO  TO  290 


LET  i $=INKEY$ 
PRINT  RT  U  ,p  ; " 

GO  SUB  200 
BEEP  -02. .90 
LET  U=U+  (  f  i  *="6"1 
•1  *  CU>01  1  *9 


*  (  U  (201  -  f  i 
CODE  J  4:  jr5 


294-0  IF  CODE  i  $>4-6  PND 
4-  THEN  LET  n  =URL  i  $  _ 

2950  IF  CODE  i#Ol3  THEN  GO  TO  2 
290 

2960  INPUT  “to  Which  phrase?11^ 
2970  IF  q<2  OR  q  >22  THEN  GO  TO  2 
290 

2930  LET  S*  Cn  ,  q>  =3$  f.D  , 

1990  LET  X*=”S*'" 

2300  GO  SUB  900 

234-0  IF  INKEY* <>""  THEN  GO  TO  23 
4.0 

2350  IF  INKEY ”  THEN  GO  TO  235 
3 

2360  GO  TO  2200 


237©  GO  SUB  90© 

900©  DRTR  ,‘btacK”,,*blOnd,l/,blueM 
,’'dU»b*'/TuriOUSi4/'«ad",MiSUddy"  .. 
‘'paie*\  "p  lasts  c",  ir'^'taU" 

9005  REH 

9S2©  drtr  “birch^/^utcher^/^og 
,,/,fishn,  "pebble"  ,  ''robor/^pect 
3  t or”  ,  ”spi  der11  ,  '‘teacher"  ,  "uj»bre  1 
la" , "wa i ter  " 

9025  REM 
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9020  DATS  '•  ba  r  K.S  "  ,  "breaks  “ ,  "  chop 
s"/,uaKs"/‘siis”/,spins"J,  "sways 
"  ,  "swias  “  ,  "  t  run  a  i  es“  v  "wa  J  JSs  “ "wa 
t  ches  ** 

9025  REM 

9030  DflTR  "a”  .  "across  tbe"/'3t  t 
ben,"3t  the", "her  ", "in  a", "in  tb 
e  " ,  "on  the",  "on  to  a",  "the",,  "jjp  t 
o  the" 

3035  REH 

304.0  1>BTH  "beach"  cat  lat"  ,  " 

9d«e" , "seat " , "par k " , ”po li ti ci an " 
, "pond" , "vase" ,  "wet>"  ,  "wi  nd" 


3  pate  fish  trundles 
at  the  me  h 
R  «f a d  pebble  breaKs 
in  a  politician 
R  plastic  birch  matches 
her  beach 

R  auddy  usbre  i  la  ga  us  <3 

at  the  part 

R  tall  waiter  sways 

on  the  aame 

R  blond  teacher  chops 

across  the  pond 

r  blue  butcher  leaks 

a  flat 

R  sisal  l  robot  sits 
onto  a  mind 
R  hiacR  dog  barks 
up  t  o  the  cat 
R  d  U  li:  b  spider  S  «  i  f«  s 
the  vase 

R  furious  spectator  spins 
in  the  seat 


THE  WELL 

A  most  realistic  and  probable  scenario  is  developed  in  this  program 
in  which  you  become  the  hapless  prisoner  of  a  wild  and  demented 
old  man  who  has  decided  that — for  your  sins — you  should  be 
drowned  in  a  well  if  you  fail  to  demonstrate  sufficient  mathematical 
prowess. 

Here's  how  the  program  explains  it: 

In  this  gaae  you  are  the 
the  prisoner  of  a  maniac 
professor  who  has  put  you 
in  a  bucket  and  is  slowly 
lowering  it  into  the  water 
be  low . 
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He  will  es*  (tuestiens. 

When  you  yet  the*  wron? 
you  will  go  lower  -  get 
thes  right  and  you  t#i  1 1  he 
hoisted  upwards. 

And  this  is  the  scene  when  the  interrogation  is  under  way: 


The  program  is  fairly  straightforward,  and  allows  for  a 
considerable  degree  of  elaboration. 

The  routine  from  line  1000  draws  the  scene.  After  it  first 
appears,  you'll  be  asked  how  good  you  are  at  maths.  If  you  enter  a 
number  less  than  1 2,  the  computer  will  choose  a  level  of  difficulty 
at  random.  I  suggest  you  start  with  15  the  first  time  you  run  the 
program.  Line  710  sets  tS  equal  to  either  the  multiplication  (*)  or 
addition  (+)  sign,  and  the  variable  a  is  assigned  in  line  720  to  a 
number  between  one  and  the  number  you  entered  as  your  skill 
level.  If  t$  is  a  multiplication  sign,  b  is  assigned  in  line  735  to  a 
number  between  1  and  10.  If  tS  is  an  addition,  sign,  b  is  chosen 
between  zero  and  100  times  the  number  you  entered  as  your 
difficulty  level. 

Line  740  prints  up  the  question  on  the  screen,  substituting  a 
small  "x"  for  the  if  it  is  a  multiplication  question  (as  "x"  is 
usually  used  as  the  abbreviation  for  multiplication).  The  g  loop, 
from  777  to  840  gives  you  the  opportunity  to  enter  the  answer.  You 
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may  well  wish  to  examine  how  this  routine  accepts  INKEYS 
characters  and  converts  them  into  a  number  greater  than  one 
character  long,  so  you  can  use  a  similar  routine  in  future  programs. 
The  professor  reacts  to  your  answer  (lines  850  to  985)  and  a  new 
question  is  generated. 

You'll  see  by  looking  at  the  routine  towards  the  end  of  the 
program  which  prints  the  scene,  that  the  variable  I  is  the  vital  one 
which  determines  how  far  down  the  well  the  bucket  is  drawn.  If 
the  bucket  comes  right  to  the  top,  the  professor  is  yanked  up  on 
the  rope  for  a  most  delightful  finish  (and  incidentally,  the  finish 
denies  the  laws  which  normally  govern  the  relationship  between 
buckets,  wells  and  ropes).  If  you  are  lowered  to  the  water,  the 
delightful  finish  is  yours  to  experience. 

5  REM  The  Well 
3.0  LET  1=4-0 
20  GO  SUB  9000 
510  PRINT  BT  6,6; "The  Well" 

520  PRINT  ,  ,TflB  6; ; "In  this  gSJ# 
e  you  are  the” 

530  PRINT  TUB  6; "the  prisoner  o 
f  a  j naan  jar” 

54-0  PRINT  TBB  6;  "professor  who 
has  put  you” 

550  PRINT  TBB  6; "i n  a  bucxet  an 
d  is  slowly” 

560  PRINT  TBB  6.;  ”  lOWfifi  n«  it  in 
to  the  water” 

570  PRINT  TBB  6; "below.” 

580  PRINT  ,,TBB  6; "He  will  asX 
ques  t i ons  .  ” 

590  print  TBB  6; "Uhen  you  get  t 
b E&  wrong” 

600  print  TBB  6; "you  will  go  lo 
wer  -  get” 

610  PRINT  TBB  &;"the»  right  and 
you  will  be ” 

620  PRINT  TBB  6; "hoisted  upward 

*v  " 

" 530  GO  SUB  1005 
64-0  PRINT  BT  21,6;  "Press  s.oy  xe 
y  to  begin.” 

550  PBUSE  0 
660  GO  SUB  1000 

670  PRINT  BT  6,6; "The  professor 
says :  ” 

680  input  ”'How  good  at  you  at 
Maths?  I5£3'",d 
682  IP  d  <  12  THEN  LET  d  =J.NT 
*73  +4. 

S8S  LET  1=121— d 
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69©  IF  d<0  OR  d>l©0  T HEN  PRINT 
BT  8^6;  "'Enter  3  number  from  0-1 
30” :  GO  TO  650 
70©  GO  SUB  100© 

710  LET  t$=CHR$  (&2+INT  *RND*2J 

.1 

72©  LET  3  =INT  /RND#d.> 

730  IF  t$="*"  THEN  LET  b=INT  (Ft 
ND*10)+1:  GO  TO  74-0 
735  LET  b  =INT  f  RND  *d  *1 B0.# 

74.0  PRINT  RT  6/6;t‘*Uhat  is 
750  LET  U*=t$ 

780  IF  t$=”*”  THEN  LET  u**".*" 
765  LET  CJ=STR$  URL  IST.R_$  3*14?* 
STR$  b-2 

770  PRINT  a;”  u$;  ”  b;  ”  7'” 

772  LET  t  t  =0 
775  LET  &*£  =  ”” 

777  FOR  3=1  TO  LEN  C$ 

780  FDR  t  =1  TO  1*100 
72-5  LET  i^=J>^Ey* 

790  IF  i $  =  ” "  THEN  NEXT  t 

880  IF  CODE  i  *<4-S  OR  CODE  i$>57 

THEM  GO  TO  910 

31©  LET  &$=#$*.*$ 

315  LET  t  t  =t  f  *t 

320  IF  <>C*f9J  THEN  GO  TO 

310 

325  PRINT  RT  3  ,  B ;  U*  $  :  BEEP  *  1  ,  2© 
33©  IF  INKEY  $  <  >  *'  ”  THEN  GO  TO  83 

0 

34-0  NEXT  g 

35©  PRIM T  fiT  10^6 :”Drat!s  YOU  9 
ot  it  r  i  gh  t  ?  '* 

860  FOR  3=1  TO  tt.-'*10 
37©  BEEP  »  ©1  *  2© 

S3©  NEXT  a 

39©  LET  l  =  l-(Ul©-tt./LEN 

© 

90©  GO  TO  7©© 

91©  PRINT  BT  3,6;w$ 

915  FOR  3  =1  TO  2© 

32©  BEEP  .1.0 
93©  NEXT  3 

94-0  PRINT  BT  1 2,6;  '‘Heh.heh*  The 
right  answer1* 

95©  PRINT  BT  13,6; uiS 
952  FOR  U=1  TO  3 
955  PBUSE  3© 

96©  PRINT  BT  3,l/8f3;  "ha*  ** 

965  PBUSE  3© 

370  PRINT  BT  3, 1^3*3;” 

975  NEXT  U 
33©  LET  1=1*4. 

935  GO  TO  70S 
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090 

STOP 

1090 

CLS 

1005 

PLOT 

0, 150 

1910 

DRAU 

0  „*>  -150 

1990 

DRPU 

4-0,-© 

193© 

DRRU 

0,150 

1032 

PLOT 

40,155:  DRAM  215.-0 

1035 

PLOT 

1  -  4-0  :  DRAM  39,0 

104.0 

CIRCLE  20,170,5 

1950 

PLOT 

20,175 

1950 

DRRU 

l  ,  -4.0.  -  f  l  <65.1 

1355 

PRINT  RT  4-,  OVER  Ij 

107© 

PLOT 

15,270 

195© 

ORRU 

0,  -l 

109© 

PRQU 

-4-  ,  -8 

1100 

DRflU 

3,0 

111© 

DRAW 

-4-,  8 

112© 

PLOT 

22, 262 -i. 

113© 

DRRU 

2,  -S 

114.0 

DRAM 

4-,0 

115© 

DRAM 

£,8 

1160 

XF  l 

=0  THEN  BEEP  1,22:  GO  T 

O  2000 

GO 

1165 

XF  l 

=153  THEN  BEEP  2,22: 

TO  3000 

1170  IF  t  <30  THEN  tET  I  =0.-  BEEP 
1,30:  GO  TO  1000 

1175  IF  l >122  THEN  LET  i =153.  BE 
EP  1,30:  GO  TO  1000 
1180  RETURN 

£000  PFUNtT  RT  4- ,£;  OUER  I,;”*” 
£010  FOR  3=6  TO  16 
£0£0  PRINT  RT  3-1.2: "  " 

£030  print  »T  a,a;"3l" 

£035  BEEP  . 05,  3 
£04-0  NEXT  3 
2050  FOR  a -17  TO  £1 
£055  PRINT  RT  a  ,3;  "it" 

£060  PRINT  RT  3  -I  “  " 

2070  BEEP  .2,21-3 
2080  NEXT  3 

£0 90  PRINT  RT  21, £;  OVER  1, 

£100  PRINT  RT  16,2/  *•_” 

2110  STOP 
3000  STOP 

0000  DRTR  24., £4-, 254., 5©, 24-, 36, 102 

,0 

9810  FOR  3=0  TO  7 
2020  RERB  6 
9030  POKE  U5R  ”a“+a,b 
9040  NEXT  3 
9050  RETURN 
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Programming  hints 

IMPROVING  YOUR  PROGRAMS 

'Artists  have  always  been  among  the  first  to  explore  new 

technologies .  .  . '  /'David  Thornburg,  Computers  and  Society, 

(Compute!  magazine,  March  1982,  p.  16) 

The  advent  of  the  personal  computer  has  given  many  people  an 
outlet  for  their  creativity.  Many  have  found  that  just  having  easy 
access  to  a  computer  has  given  them  an  entry  into  creative  activity, 
tapping  skills  which  might  otherwise  have  remained  dormant. 

Like  all  art  forms,  knowledge  of  technique  can  make  it  easier  to 
express  your  creative  programming  desires.  Having  a  fund  of  tricks 
and  techniques  on  tap  allows  you  to  get  on  with  inventing  and 
developing  the  program  you  have  imagined  without  being  hindered 
by  the  fear  that  you  may  not  be  able  to  make  the  computer  perform 
just  as  you  desire.  For  example,  knowing  how  to  make  objects 
move  allows  you  to  concentrate  on  other  characteristics  which 
elements  within  your  program  should  display,  rather  than  getting 
bogged  down  in  working  out  the  mechanics  of  creating 
movement. 

Examining  the  programs  in  this  book  and  in  magazines  and  other 
books,  should  teach  you  quite  a  bit  about  programming.  As  you 
enter  the  programs  and  read  the  notes  I've  written  to  accompany 
them,  you  should  pick  up  a  number  of  ideas  which  you  can  easily 
incorporate  into  your  own  programs.  If  you're  still  fairly  new  at  the 
programming  game  you  might  want  to  start  just  by  adapting  the 
listings  in  the  book,  changing  such  things  as  the  user-defined 
graphics,  or  the  keys  which  an  INKEYS  routine  reads,  and  then  go 
ahead  later  to  write  completely  original  programs. 

Keep  the  'human'  side  of  your  program  in  mind  when  developing 
it.  In  many  cases,  your  programs  will  be  run  by  people  other  than 
yourself  and  you  should  try  and  make  it  as  easy  and  as  enjoyable  as 
possible  for  others  to  run  your  programs.  For  example,  many 
programs  (including  some  in  this  book)  written  for  the  Spectrum 
use  the  "5",  "6",  "7"  and  "8"  keys  to  control  movement,  moving 
an  object  under  player  control  in  the  direction  indicated  by  the 
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arrows  above  those  keys.  But  if  you  think  about  it  for  a  moment, 
you'll  realise  that  they  are  not  the  most  sensible  keys  to  use  in  all 
circumstances.  They  are  crowded  together  at  the  top  of  the 
keyboard  and  are  certainly  not  the  easiest  ones  to  use.  It  may  be  far 
more  convenient,  if  a  program  just  demands  left  and  right 
movement  to  use  the  "Z"  (for  left)  and  the  "M"  (for  right)  keys. 
Other  keys  can  be  brought  into  play  for  up  and  down  movement. 
You'll  see  this  in  use  in  programs  in  this  book  such  as  DEATH  RACE 
2000. 

It  is  worth  questioning  any  program  actions  you  make  by  habit — 
such  as  using  the  "5"  to  "8"  keys — to  see  whether  or  not  this 
habit  helps  produce  a  program  which  is  as  pleasant  as  possible  to 
use. 

If  you  do  use  keys  other  than  ''5''  to  "8"  for  movement,  choose 
those  which  seem  'natural'  so  the  player  can  get  on  with  enjoying 
the  game,  rather  than  waste  mental  energy  trying  to  remember 
which  key  does  what.  Pick  keys  which  are  comfortable  to  use,  with 
positions  somehow  related  to  their  function  within  the  program 
(such  as  the  bottom  left  hand  corner  of  the  keyboard — “Z" — for 
moving  left).  For  other  controls  within  a  program,  such  as  firing 
your  deadly,  alien-zapping  laser  gun,  it  makes  sense  to  either  pick  a 
key  which  is  easy  to  get  at,  or  one  which  has  some  link — such  as 
"F"  for  fire,  or  'R''  to  roll  the  dice — with  the  function  the  key 
triggers.  You'll  see  this  in  REVENGE  OF  CASTLE  DREAD  where 
you  enter  "E"  to  move  east,  "FL"  to  flee,  and  "Q"  to  quit.  Once 
you've  read  the  instructions  for  a  game  like  this,  you're  unlikely  to 
forget  which  key  performs  which  function. 

If  it  is  possible  to  do  so,  you  should  include  quite  explicit  prompts 
within  a  program,  so  the  player  knows  exactly  what  to  do  in  each 
situation.  Although  it  is  not  necessary  to  provide  full  instructions 
within  a  program  (and  often  they  simply  occupy  a  lot  of  typing  time 
and  memory),  your  INPUT  prompts  should  be  clear.  The  use  of 
specific  guides  for  the  user,  within  quote  marks  in  an  INPUT  line  on 
the  Spectrum,  makes  it  simple  to  give  the  program  operator 
explicit  prompts  or  guidelines.  As  you  probably  know,  you  can  use 
all  the  standard  PRINT  statement  controls,  such  as  FLASH, 
BRIGHT  and  INVERSE  within  INPUT  prompts,  highlighting  such 
prompts  and  adding  to  the  general  interest  created  by  the  program. 

Once  you  have  a  program  up  and  running,  you  should  spend 
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some  time  making  the  display  as  attractive  as  possible.  Even  if  the 
output  of  the  program  consists  just  of  PRINT  statements,  there  is 
no  reason  why  they  cannot  be  arranged  on  the  screen  in  an 
interesting,  clear  and  attractive  way.  Use  of  colour  within  PRINT 
statements  or  perhaps  in  BORDER  changes  from  time  to  time,  can 
enhance  the  message  and  improve  its  legibility.  Random  BORDER 
changes,  for  example,  are  used  in  the  chess  program  within  this 
book  to  acknowledge  a  capture  by  a  human  piece. 

Sound  can  also  be  used  to  improve  programs.  It  is  surprising 
how  much  a  few  BEEPs  can  add  to  a  program's  output,  not  only  for 
obvious  things  like  the  sound  of  an  alien  disintegrating,  or  for  balls 
bouncing,  but  also  for  applications  such  as  those  with  NEOPHYTE 
CHESS.  In  that  program,  the  computer  BEEPs  as  it  runs  through  a 
particular  part  of  the  program  concerned  with  looking  for  a  piece  to 
move.  This  ensu  res  that,  even  if  the  computer  appears  to  be  taking 
a  long  time  to  make  a  decision,  the  player  is  reassured  that  the 
program  hasn't  lost  itself  in  an  endless  loop. 

Any  use  of  colour  and  sound  can  enhance  the  impact  of  a 
program.  While  there  are  some  who  would  argue  against  the  use 
of  colour  for  colour's  sake,  it  seems  foolish  when  using  a  computer 
such  as  the  Spectrum — which  provides  colour  as  one  of  the 
features — not  to  take  advantage  of  these  features  whenever  you 
can.  The  same  argument  applies  to  user-defined  graphics.  You 
should  use  them  if  you  feel  they  will  enhance  the  program.  In  our 
chess  program,  we  did  not  create  our  own  graphics  because  the 
emphasis  there  was  on  quality  of  play,  rather  than  'prettiness'. 
However,  there  is  no  excuse  (except,  perhaps,  laziness)  for  having 
inverse  asterisks,  for  example,  to  represent  aliens  rather  than  the 
'real  thing'  created  by  a  user-defined  graphic  or  two. 

While  not  overlooking  the  value  of  adding  colours  to  INK  and 
PAPER,  nor  that  of  highlighting  words  wirh  INVERSE,  FLASH  and 
BRIGHT,  there  are  more  subtle  things  you  can  do  to  enhance  a 
message,  such  as  including  certain  words  in  capital  letters  when 
the  rest  of  the  message  is  in  small  letters.  You  can  see  this  in  use  in 
the  rewrite  of  the  room  descriptions  in  REVENGE  OF  CASTLE 
DREAD  where  I've  included  the  changed  words  in  capital  letters, 
so  you'd  know  which  ones  to  alter  to  get  the  variation  on  the  game. 
Although  the  words  were  put  in  capitals  in  this  to  simplify  the 
conversion  task  rather  than  to  highlight  them,  they  do  illustrate 
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how  effective  something  as  simple  as  this  can  be.  The  position  of 
print  output  on  the  screen  can  also  be  important,  and  PRINT  AT 
makes  it  easy  to  place  your  material  wherever  you  want  it. 

INCREASING  PROGRAM  SPEED 

In  some  programs,  quality  of  play  is  more  important  than  the  speed 
of  play  (such  as  in  PIRANDELLO  and  CHECKERS  in  this  book).  But 
even  in  programs  like  these,  you  should  still  aim  to  produce  a 
program  which  runs  as  quickly  as  possible.  Speed  is  generally  the 
over-riding  priority  in  moving  graphics  games.  Jerky,  slow-moving 
graphics  lead  to  an  unsatisfying  program. 

In  the  introductions  to  several  programs  in  this  book.  I've  drawn 
attention  to  aspects  of  that  program  which  help  to  maximise  its 
running  speed.  I  thought  it  would  be  of  value  to  have  the  hints 
brought  together  and  some  extra  ones  added,  in  this  chapter. 

When  a  program  comes  to  a  GO  TO  or  a  GO  SUB  command,  it 
must  search  right  through  the  program,  from  the  first  line  number, 
line  by  line,  until  it  comes  to  the  line  number  designated  in  the  GO 
TO  or  GO  SUB.  Therefore,  programs  which  place  often-used 
subroutines  near  the  beginning  of  the  listing  tend  to  run  fractionally 
more  quickly  than  they  would  if  the  routines  were  towards  the  end 
of  the  listing.  If  there  is  a  master  loop,  which  is  accessed  time  and 
again  in  a  program,  it  is  worth  trying  to  organise  the  program  so  this 
loop  is  as  close  as  possible  to  the  start  of  the  listing.  You'll  see 
many  programs  organised  in  this  way  in  this  book. 

In  addition  to  using  this  arrangement,  parts  of  the  program  which 
are  only  used  once — such  as  instructions  to  the  player  and  the 
initialization  of  variables  and  user-defined  graphics — should  be 
placed  at  the  very  end  of  the  program,  to  ensure  that  they  do  not 
have  to  be  'jumped  over',  as  it  were,  every  time  the  computer 
starts  searching  through  the  listing  for  a  GO  TO  or  GO  SUB 
destination. 

You'll  find  that,  generally  speaking,  the  lowerthe  number  of  lines 
in  your  program,  the  faster  the  program  will  run.  Statements  which 
are  'chained  together'  on  the  same  line  are  executed  fractionally 
faster  than  they  would  be  if  they  were  in  consecutive,  single¬ 
statement  lines.  This  is  especially  noticeable  with  moving  graphics 
programs,  so  you  should  try  to  chain  PRINT  AT  statements  with 
semicolons  whenever  you  can.  Generally,  the  decrease  in  speed 


Programming  hints  169 


as  a  result  of  having  many  separate  lines  as  well  as  copious  REM 
statements,  is  neither  critical  nor  particularly  noticeable.  However, 
when  speed  must  be  optimized,  it  may  be  worth  making  two 
versions  of  a  program.  The  first  version,  studded  with  REMs  and 
using  single-statement  lines  for  maximum  clarity  during  the 
development  and  debugging  stages,  can  be  stripped  down  to  the 
second  version.  This  second  program  will  have  no  REMs  left  in  it, 
and  will  make  as  much  use  of  statement-packing  as  possible. 

GO  TO  statements  can  often  be  completely  removed  by  careful 
programming.  Examine  any  GO  TO  which  is  not  qualified  by  an  IF/ 
THEN  to  see  if  you  can  remove  it.  Some  programming  purists  claim 
an  unqualified  GO  TO  is  always  bad,  but  this  is  no  reason  why  you 
should  totally  eschew  the  often  useful  command.  However,  you 
should  look  critically  at  programs  which  use  GO  TO,  especially  a 
non-conditional  GO  TO,  just  to  see  if  there  is  any  way  of  getting 
around  it.  GO  SUBs  can  often  be  removed  completely  as  well.  If 
there  is  a  fairly  short  subroutine  which  is  called  only  two  or  three 
times  in  a  program,  you  may  find  it  better  to  include  the  subroutine 
in  full  each  time  it  is  needed,  rather  than  consume  time  in  GO 
SUBbing. 

Once  you  have  a  program  up  and  running,  it  is  worth  dumping  a 
listing  of  it  to  the  printer  to  examine  it  quite  critically  in  terms  of 
general  'blocks'  of  more  or  less  self-contained  code.  You'll  find  you 
can  look  at  many  programs  in  this  way,  even  if  they  were  not 
programmed  with  a  'modular'  structure  in  mind.  Once  you've 
scanned  your  program  in  this  way,  you  may  well  discover  the 
blocks  are  not  in  the  best  order  to  ensure  the  program  runs  logically 
from  point  to  point  as  quickly  as  possible.  You  can  then  try  to  re¬ 
arrange  the  blocks  of  code  into  an  order  that  is  'cleaner'  and, 
perhaps,  more  logical. 

Do  not  use  brackets  unless  they  are  absolutely  necessary,  as 
they  take  up  both  memory  and  processing  time.  You'll  find  that  the 
Spectrum  generally  demands  fewer  brackets  than  do  most  other 
BASICS,  allowing  for  example  PRINT  CHRS  134  rather  than  PRINT 
CHRS  (134). 

You  may  have  trouble  fitting  programs  originally  written  for  a  16K 
ZX81  into  a  16K  Spectrum.  The  graphics  consume  a  significant 
portion  of  the  memory  on  a  1 6K  Spectrum.  When  converting,  leave 
out  all  the  REM  statements,  and  condense  PRINT  statements  as 
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much  as  you  can.  Leave  the  instructions  out  entirely.  Examine  the 
entire  listing  to  see  if  it  can  be  shortened  in  any  other  way,  such  as 
replacing  frequently-used  words  or  phrases  with  strings  or  by 
adding  a  subroutine  to  cater  for  blocks  of  code  which  are  accessed 
more  than  once  in  the  program.  This  will  slow  it  down  a  bit,  but  this 
is  a  small  price  to  pay  to  squeeze  the  program  in.  As  you  probably 
know,  the  Spectrum  runs  very  much  more  quickly  than  does  the 
ZX81 ,  so  this  sacrifice  of  speed  is  unlikely  to  be  a  problem.  If  the 
program  ran  at  a  satisfactory  speed  on  a  ZX81 ,  it  can't  help  but  be 
better  on  a  Spectrum. 
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THE  GOTHIC  GENERATOR 

This  program  is  not  a  game,  but  it  is  a  very  useful  programming  aid 
and  can  be  great  fun  to  run.  The  program  allows  you  to  define  one, 
or  all  of  the  characters  printed  by  the  Spectrum,  as  characters  of 
your  choice.  It  is  just  over  thirty  lines  long  but  enables  you  to 
produce  quite  extraordinary  effects. 

Here,  for  example,  is  the  program  listing  in  Gothic  characters, 
created  by  redefining  the  whole  character  set: 


i  rf  ii!  -fhar£ 

2  0  fi  far  31  ivv 

S5  >ri»t  *i #2-4*  #ait  a 

sts. 


Hi 


r  =  1  3r&  1 

2  =  3I*v>l 

•n  i  £7  *  *  j  j 


i  *  -v  a 

a*f,Jffi?  cf-i-fi 
fl  f 

j-ff:  £=35145 
iff:  B=£36P6 

fofef  ,  p-25S.*i#t  (U/S56) 

,»*fiet  Ifttfr  to  rf.fr 

“  " ;  a  $ 

210  if  t  a  =31401  tSi  tfOif  a  $ -3?  > 

220  ” 


1ft  2  =214£USJ  <€0&f 

f or  f  =o  " 
let  !$=••$>»  •• 

i$:  if  €£  =  "  £tO f 


249  4,5 
is 

~i*5.Xf  if*  {$os  as&  ($<>" 


*  iff 


5,29:  SO  tO  240 
:  Y.=pzl 
F*f  a  tf  ,i„_  , 
jist^r+i ; tai  3;C$,i 

2S9  trf»t* 

239  |ri*|  a$ 

300  fr£*t 
320  Jri*t 

320  *rist 
330  30  tO  200 


1  tb 

th  f 


As  you  can  see,  it  is  very  effective.  Most  of  the  time  you  will  not 
need  to  redefine  the  whole  alphabet  and  may  want  to  change  only 
a  few  characters.  You  run  the  program  and  wait  a  few  moments 
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before  following  the  clear  prompt  "Which  letter  to  reprogram?". 
Having  answered  that,  you  enter  (line  240)  a  single  BIN  number  for 
cS,  the  computer  processes  that,  and  returns  for  your  next  BIN 
number.  When  you've  finished  redefining,  simply  press  the  STOP 
key  to  terminate  the  process.  You'll  now  find,  assuming  you  had 
reprogrammed  the  'a',  that  each  time  you  press  'a'  you'll  get  your 
own  character.  Here  is  the  program  in  non-Gothic: 

5  GO  TO  20© 

10  CLERR  314-00 

is  print  "Please  wait  a  few  ma 
sen  ts ...” 

2S  LET  p =15616 

30  LET  a  =314-01 
4-0  FOR  f=S  TO  1023 
SB  POKE  3  +f  ,  PEEK  ( p  +  f  ) 

50  NEXT  f 
-0  LET  V  =3114-5 
30  LET  n  =23606 

30  poke  n^v-asejiNT  tv/ase) 

100  POKE  fi+l,INT  fV.-'-2553 

230  input  "Uhich  letter  to  repr 

OQfaft?  ";a$ 

210  LET  3=314-01*8*  CCQDE  =4-32) 
22©  FOR  f  =0  TO  ? 

230  LET  b$="BIN  " 

24-0  INPUT  C  $ :  IF  C$="  STOP  "  TH 

EH  STOP 

24-S  IF  LEN  C$  OS  RNI>  THE 

N  BEEP  .5.20:  GO  TO  24-0 
250  LET • bsUflL 
^35  POKE  3  +  f  »  fc> 

260  PPINT  f+i:TR&  3;c$,b 


070 

NEXT  f 

c.3.3 

pOTATT 

290 

pHxnt 

380 

PRINT 

310 

PRINT 

320 

PRZHT 

330 

GO  TO  200 

It  is  simpler  to  reprogram  whole  alphabets  using  decimal  input 
rather  than  binary  input.  If  you  really  need  a  Gothic  alphabet,  enter 
the  following  tiny  program: 

1000  FOR  a  =314.00  TO  32190 
200©  INPUT  (  3  3  ;  **  T  "  ..  p 
3000  POKE  a  p 
4.000  NEXT  a 

When  you  run  it,  you'll  be  asked  for  a  vast  number  of  inputs.  Just 
enter  the  number  shown  in  the  next  list,  after  the  prompt  number 
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shown.  Once  you've  done  this,  your  enter  alphabet  will  have  been 
rendered  Gothic.  This  will  be  ideal  for  printing  cheap  greeting  cards 
on  your  Spectrum  next  year. 


31400 

62 

31491 

o 

31402. 

O 

31493 

o 

31404 

O 

51495 

o 

31406 

o 

3149? 

o 

3i40£ 

o 

31494 

o 

31410 

16 

31411 

16 

31412 

16 

31413 

16 

31414 

O 

31415 

16 

31414 

o 

31417 

O 

3141  £ 

36 

31414 

36 

31420 

O 

31421 

O 

31422 

O 

31423 

O 

31424 

O 

31425 

O 

31426 

36 

3142? 

126 

31423 

36 

31422 

36 

31430 

126 

31431 

36 

31432 

& 

31433 

O 

31434 

£ 

31435 

62 

31436 

40 

3143? 

62 

31433 

to 

31439 

62 

34440 

£ 

31441 

O 

31442 

32 

31443 

lOO 

31442 

32 

31443 

IOO 

31444 

£ 

^  1 44  o 

16 

31446 

3£ 

3144? 

70 

31443 

O 

31449 

O 

31450 

16 

31451 

40 

31452 

16 

31453 

42 

31454 

6  £ 

31455 

5£ 

31456 

O 

3145? 

O 

31453 

£ 

31459 

16 

31460 

O 

31441 

O 

31462 

O 

31443 

o 

31464 

O 

31445 

o 

31466 

4 

3144? 

£ 

3146  £ 

£ 

31449 

£ 

31470 

£ 

31471 

4 

31472 

O 

31473 

O 

31474 

32 

31475 

16 

31476 

16 

31477 

16 

31471 

16 

31479 

32 

31430 

O 

31441 

O 

31431 

O 

31443 

20 

31434 

£ 

31445 

62 

314&6 

£ 

31447 

20 

3i  4££ 

o 

31449 

O 

31490 

O 

31491 

£ 

31492 

£ 

31493 

62 

31494 

£ 

31495 

£ 
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SI4^ 

O 

31497 

o 

O 

31499 

o 

31500 

O 

31591 

o 

313^2 

3 

31593 

3 

31504 

16 

31595 

o 

3!5<?i 

O 

31597 

o 

31503 

O 

31599 

62 

31510 

o 

31511 

o 

31512. 

o 

31513 

o 

31514 

o 

31515 

o 

34516 

o 

31517 

o 

3151  3 

24 

3151  9 

24 

3152<? 

O 

31521 

O 

315512 

O 

31523 

2 

31524 

4 

31525 

3 

31526 

16 

31527 

1*2 

31526 

16 

31527 

32 

31523 

O 

31519 

O 

31530 

23 

31531 

3* 

31532 

66 

31533 

lOO 

31534 

56 

31535 

16 

31536 

O 

31537 

O 

31531 

24 

31539 

56 

31540 

24 

31541 

24 

31542 

24 

31543 

60 

31544 

O 

31545 

O 

31546 

56 

31547 

76 

3154* 

36 

31549 

12 

31550 

16 

31551 

126 

31552 

O 

31553 

O 

31554 

126 

31555 

4 

31556 

3 

31557 

2* 

31553 

70 

<£4559 

124 

31560 

O 

31561 

O 

31562 

12 

31563 

23 

31564 

44 

31565 

126 

31566 

12 

31567 

30 

31563 

O 

31569 

O 

31570 

126 

31571 

64 

31572 

124 

31573 

6 

31574 

66 

31575 

60 

31576 

O 

31577 

O 

31573 

24 

31579 

43 

31530 

112 

31561 

76 

31532 

lOO 

31563 

56 

31534 

o 

31565 

O 

34536 

126 

31567 

66 

31533 

4 

31569 

24 

31520 

16 

31591 

43 

31522 

O 

31593 

O 

31524 

23 

31595 

36 

31526 

24 

31597 

23 

31523 

33 

31599 

60 

31600 

O 

3169ft 

O 
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31602 

23 

31604 

50 

31606 

12 

3160* 

O 

31610 

O 

31610 

o 

31612 

16 

31614 

o 

31616 

o 

3161  * 

o 

31620 

o 

31622 

14 

31624 

32 

31626 

O 

31623 

3 

31630 

3 

31632 

O 

31634 

O 

31636 

62 

316  3  3 

62 

31640 

O 

31642 

o 

31644 

3 

31646 

3 

31643 

31650 

60 

31652 

4 

31654 

O 

31656 

O 

31653 

60 

31660 

36 

31662 

64 

31644 

O 

31666 

56 

31663 

24 

31670 

104 

31672 

O 

31674 

96 

31676 

56 

31673 

52 

31630 

24 

31632 

56 

31634 

96 

31636 

96 

31633 

24 

31690 

32 

31692 

24 

31694 

44 

31694 

14 

31693 

54 

31700 

120 

31702 

94 

31704 

24 

31603 

33 

31605 

14 

31607 

14 

31609 

O 

31611 

O 

31611 

O 

31413 

o 

31615 

26 

31617 

O 

31619 

16 

31621 

O 

31623 

16 

31625 

O 

31627 

4 

31629 

16 

31631 

4 

31633 

O 

31635 

O 

31437 

o 

31639 

o 

31641 

o 

31643 

16 

31645 

4 

31647 

16 

31649 

rt 

31651 

66 

31653 

5 

31655 

S 

31657 

O 

31659 

74 

31661 

94 

31663 

60 

31665 

O 

31667 

72 

31669 

40 

31671 

124 

316  73 

32 

31675 

32 

31677 

52 

31679 

52 

31651 

16 

316  53 

104 

31655 

96 

31657 

45 

31659 

26 

31691 

16 

316  93 

44 

31695 

44 

31647 

26 

316-99 

104 

31701 

96 

31703 

45 

31705 

14 
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31706 

26 

31707 

16 

317<?S 

60 

31709 

16 

3171^ 

16 

31711 

43 

3171S 

24 

31713 

26 

31724 

40 

3X715 

202 

3171^ 

44 

3X717 

23 

31713 

44 

3171 9 

70 

3172^ 

60 

31724 

32 

3*7:22 

32 

32723 

46 

31724 

54 

32725 

34 

31726 

34 

31727 

a 

3I72S 

4 

31729 

26 

31730 

3a 

31731 

O 

31732 

41 

3 1 733 

33 

3173-4 

24 

31735 

26 

31736 

as 

31737 

24 

31736 

as 

31737 

24 

31733 

o 

31  73  9 

56^ 

31740 

24 

31741 

24 

3174S 

24 

31743 

26 

31744 

96 

31745 

32 

31746 

96 

31747 

230 

31743 

107 

31749 

114 

31750 

103 

3175 1 

93 

31752 

19 

31753 

16 

31754 

43 

31755 

16 

31756 

16 

31757 

16 

31751 

16 

3  175  9 

23 

32760 

24 

31761 

43 

3176a 

126 

31  /  63 

170 

31764 

42 

**1765 

42 

31766 

42 

31767 

106 

31763 

O 

31769 

O 

31770 

40 

31771 

216 

3177a 

52 

31773 

52 

31774 

52 

3  1775 

52 

31776 

O 

31777 

24 

3177  S 

44 

31779 

103 

3 1 771 

44 

31779 

2  OS 

317  SO 

103 

31731 

103 

317S2 

103 

31733 

104 

31714 

43 

31735 

56 

31736 

1  26 

31737 

52^ 

31  711 

52 

31739 

56 

31790 

43 

31791 

43 

3179a 

64 

31793 

O 

31794 

43 

31795 

33 

31796 

33 

31797 

33 

3179S 

56 

31799 

12 

31300 

3 

31301 

O 

31102 

44 

31303 

216 

32  304 

32 

31305 

32 

31306 

32 

31307 

96 

31303 

43 

31309 

2 

31310 

as 

31311 

32 
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3:iii2 

105 

31515 

115 

51324 

6 

31  555 

105 

51  3  26 

45 

31517 

16 

5111  3 

45 

31519 

126 

31120 

45 

51521 

45 

31122 

45 

31523 

124 

31124 

60 

51525 

O 

31124 

40 

31527 

1  26 

31121 

52 

31522 

52 

31530 

52 

51551 

52 

31132 

20 

31553 

O 

31234 

34 

31335 

115 

52  334 

50 

3 1  £.*7 

50 

51  23  2 

54 

31339 

60 

31140 

16 

31542 

O 

51  142 

54 

31543 

234 

31244 

207 

31545 

207 

52  144 

107 

31547 

106 

51  S4Sz 

20 

31542 

54 

51  £50 

54 

31551 

24 

51  $52. 

60 

31553 

24 

31254 

24 

31555 

42 

53  $56 

6  3 

31557 

105 

51  35$ 

35 

31559 

3  5 

51360 

35 

32  56  2 

124 

51  562 

6  4 

32  565 

45 

51562 

64 

**  1  56  5 

43 

51  264 

12 

52  565 

126 

51566 

65 

31567 

5 

51565 

23 

5 1  56  2 

6 

31270 

2 

31571 

22 

31272 

45 

«vl  57  ct 

O 

31174 

14 

31275 

5 

33  274 

3 

31  S77 

5 

51375 

5 

31  572 

24 

31  5  30 

O 

51551 

O 

51  552 

O 

31  555 

64 

31  554 

32 

31555 

26 

52  556 

5 

31537 

4 

51555 

O 

31552 

O 

31220 

56 

31  524 

72 

31222 

24 

31  5  23 

40 

31  594 

104 

31525 

124 

51596 

O 

31527 

32 

31595 

16 

31  522 

56 

31  900 

54 

51202 

16 

31902 

16 

31  203 

16 

31  904 

O 

32  905 

O 

32  904 

o 

31905 

o 

32  906 

o 

31907 

o 

32  905 

o 

31909 

o 

32920 

o 

31911 

o 

32912 

255 

31913 

o 

32  914 

23 

31  915 

34 

178  Appendices 


31916 

120 

31-917 

22 

31916 

32 

31919 

126 

31920 

O 

31921 

O 

56 

31923 

72 

31924 

24 

31925 

40 

31926 

104 

31927 

124 

31926 

O 

3192.9 

32 

31930 

96 

31931 

32 

31932 

56 

31933 

52 

31934 

52 

31935 

52 

31936 

24 

31937 

16 

3 1  93  & 

56 

31939 

104 

31940 

96 

31941 

96 

31942 

96 

31943 

46 

31944 

24 

31945 

16 

31946 

32 

31947 

16 

31  946 

24 

31949 

44 

31950 

44 

31951 

44 

31952 

16 

3195* 

16 

31954 

56 

31955 

104 

31956 

120 

31957 

96 

31  95  & 

96 

31959 

46 

31960 

24 

31961 

14 

31962 

26 

31963 

16 

31964 

60 

31965 

16 

31966 

16 

31967 

46 

3196  6 

24 

31969 

16 

31970 

40 

31971 

106 

31972 

44 

31973 

26 

31974 

44 

31975 

70 

31976 

60 

31977 

32 

31976 

32 

31979 

44 

31930 

54 

31911 

34 

31962 

34 

319&3 

2 

31934 

4 

31935 

16 

31936 

32 

31937 

O 

31966 

41 

31939 

66 

31966 

46 

31939 

66 

31990 

24 

31991 

26 

31992 

11 

31993 

14 

31994 

O 

31995 

56 

31996 

24 

31997 

24 

31993 

24 

31999 

16 

32000 

96 

32001 

32 

32002 

96 

320O3 

230 

32004 

107 

32005 

114 

32006 

106 

32007 

96 

32006 

19 

32009 

16 

32010 

46 

32011 

16 

32012 

16 

32013 

16 

32014 

16 

32015 

26 

32016 

24 

32017 

43 

3201  6 

126 

32019 

170 

32020 

42 

32021 

42 
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saoaa 

42 

32023 

106 

32024 

O 

32025 

O 

32026 

40 

32027 

116 

32026 

52 

3202  2 

52 

3'2030 

52 

32031 

52 

32032 

O 

32033 

24 

32034 

44 

32035 

106 

32036 

103 

32037 

106 

32036 

103 

32032 

104 

3204  a 

43 

32041 

56 

32042 

116 

32043 

52 

32044 

52 

32045 

56 

3204* 

43 

32047 

46 

3204* 

64 

32042 

O 

32050 

43 

32051 

66 

32052 

33 

32053 

6  6 

32054 

56 

32055 

12 

3205* 

3 

32057 

O 

3205 & 

44 

32052 

116 

32060 

32 

32061 

32 

32042 

32 

32063 

26 

3204  4 

43 

32065 

2 

32046 

23 

32067 

32 

3206  6 

103 

3206  2 

116 

32070 

6 

32071 

106 

32072 

43 

32073 

16 

32074 

43 

32075 

126 

32076 

43 

32077 

46 

3207 a 

43 

32072 

114 

32030 

60 

320  &  i 

O 

32032 

40 

32063 

116 

32034 

52 

32065 

52 

32036 

52 

32067 

52 

32033 

io 

32062 

O 

32020 

34 

32021 

116 

32022 

50 

32023 

50 

32024 

54 

32025 

60 

32026 

16 

32027 

O 

32023 

34 

32022 

234 

32100 

107 

32101 

107 

32102 

107 

32103 

106 

32104 

20 

32105 

54 

32106 

34 

32107 

24 

32103 

60 

32102 

24 

32110 

24 

32111 

42 

32112 

63 

32113 

106 

32114 

33 

321 15 

36 

32114 

33 

32115 

36 

32116 

33 

32117 

124 

32113 

64 

32112 

46 

32120 

12 

32121 

126 

32122 

63 

32123 

6 

32124 

23 

32125 

6 
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32126 

2 

32127 

12 

3212& 

43 

32429 

O 

32.130 

14 

32131 

s 

32.132 

43 

32133 

* 

32134 

3 

32135 

14 

32  434 

O 

32137 

O 

32133 

3 

32139 

3 

32140 

3 

32141 

Er 

32142 

3 

32143 

3 

32144 

O 

32145 

O 

32146 

O 

32147 

O 

32143 

O 

32149 

o 

32150 

O 

32151 

o 

32152 

O 

32153 

o 

32154 

20 

32155 

40 

32156 

O 

32157 

O 

32156 

O 

32157 

O 

32153 

O 

32159 

O 

32160 

O 

3216  1 

6  0 

32162 

66 

32143 

1 1>3 

32164 

161 

32165 

16  1 

32166 

153 

32167 

66 

32163 

60 

3216  9 

O 

32170 

O 

32171 

O 

32172 

O 

32173 

o 

32174 

O 

32175 

o 

32476 

o 

32177 

o 

32173 

o 

32179 

o 

32130 

o 

321  Si 

o 

32132 

o 

321  S3 

o 

32134 

V 

32 1  35 

o 

ti2i  36 

o 

321  S7 

o 

32133 

o 

321  £  9 

o 

32190 

o 

32191 

o 

32192 

o 

32193 

o 

32194 

o 

32195 

o 

32196 

o 

32197 

o 

32193 

o 

32 1  9  9 

o 

MACHINE  CODE  RENUMBER 

Here  is  a  machine  code  program  which  will  renumber  a  BASIC 
program,  altering  where  needed  the  numbers  following  GO  TO, 
GO  SUB,  RESTORE,  LINE  and  RUN.  It  is  written  to  the  address 
5CD0,  that  is,  the  first  program  line.  The  addresses  may  be  altered 
(the  appropriate  addresses  are  underlined)  but  the  process  is  not 
recommended. 

Here's  how  it  works: 

1.  The  program  looks  for  RUN,  GO  TO,  GO  SUB  and  RESTORE 
bytes  throughout  the  program,  checking  that  they  do  not  belong  to 
a  REM  statement,  PRINT  statement,  line  number  or  length  of  line. 
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If  the  end  of  the  program  is  reached,  it  is  renumbered.  If  a  GO  TO  or 
GO  SUB  or  similar  byte  has  been  found,  the  program  checks  to  see 
if  CHRS  14  occurs  in  the  next  five  characters.  If  not,  the  program 
loops  back  to  the  start.  The  program  now  block  loads  the  number 
into  variable  a. 

2.  Next,  the  program  POKEs  the  number  back  into  the  second  part 
of  the  program  -  now  in  hexadecimal.  It  finds  the  position  of  the 
line  numbers  after  such  things  as  GO  TO  and  GO  SUB,  and  if 
greater  than  the  last  program  line,  loops  back  to  step  1 .  It  converts 
the  position  of  the  line  number  after  the  GO  TO  or  GO  SUB  into  the 
new  destination,  converting  this  number  into  a  string  in  aS.  Now  it 
block  loads  the  new  destination  to  the  five  bytes  after  CHRS  1 4. 

3.  The  program  now  loads  the  string  into  position  immediately 
after  GO  TO,  GO  SUB  and  the  like.  It  deletes  or  inserts  spaces  as 
required  to  accommodate  the  string,  while  at  the  same  time 
altering  the  system  variables  and  the  length  of  the  program  line.  It 
then  loops  back  to  1 . 

To  enter  the  program,  type  in  the  BASIC  hex-loader,  and  a  REM 
statement  containing  exactly  372  characters  as  line  number  1 .  This 
occupies  eleven  lines  plus  20  characters.  Note  that  there  are  no 
spaces  within  bS  in  line  2. 

You  run  the  hex-loader,  entering  the  pairs  of  hex  code  given  as 
listing  two.  The  hex  loader  will  accept  any  number  of  bytes  at  a 
time  and  the  code  must  be  entered  without  spaces  between  the 
pairs.  The  code  uses  lower  case  letters  and  allows  you  to  re-enter 
any  numbers  it  does  not  recognize.  At  the  end  of  the  DATA  it  will 
stop  with  report  code  9/18: 1/ 

Check  the  following: 

PEEK  23765  should  return  33 
PEEK  23891  should  return  11 
PEEK  23993  should  return  33 
PEEK  24072  should  return  42 

Now  delete  all  of  the  original  program,  except  for  line  1.  Enter 
listing  three.  Note  that  line  5  contains  the  step  size,  and  first 
number.  In  this  program,  they  have  been  set  to  10,  but  you  may 
alter  them  as  you  wish.  However,  they  must  both  be  four 
characters  long,  and  hence  have  leading  zeroes.  When  attempting 
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to  alter  these  values,  you  must  POKE  23901  with  the  first  number 
minus  the  STEP  SIZE,  and  POKE  23909  with  the  step  size.  Just 
enter  RUN  to  renumber  a  program.  It  is  suggested  that  you  keep 
the  RENUMBER  on  a  separate  tape,  and  MERGE  it  with  your 
onboard  program  when  you  need  to  renumber. 


Listing  one,  the  hex-loader: 

2>LET  b$="S123456789abCd£ f " 

3  FOR  3=23760  TO  24-131 
4.  INPUT  3* 

6  print  a$  (  TO  2)  ;*' 
s  let  c$=a$ri) 

7  30  SUB  19 

3  XF  b  =  16  THEN  GO  TO  4- 
9  LET  C=fo*16 
1©  LET  C$=3$(2) 

11  GO  SUB  IS 

12  XF  b=X&  THEN  GO  TO  4 

13  POKE  a,c+fe 

14  LET  a$=a$C3  TO  !i 

15  L.ET  a  =3  +NOT  NOT  LEN  a$ 

16  XF  LEW  3$  THEN  GO  TO  5 

17  NEXT  a 
IB  STOP 

IS  FOR  b=©  TO  15 

20  XF  b$Cfe+13<>C$  THEN  NEXT  b 

21  RETURN 

Listing  two,  the  hex  code: 


4-3 

rr.n 

61 

63 

65 

21 

19 

5F 

hS 

23 

23 

23 

22- 

E8 

50 

C9 

ID 

5F 

16 

60 

FE 

EC 

05 

PE 

ED 

CS 

FE 

E5 

06 

FE 

OR 

05 

PE 

F7 

CS 

EB 

2P 

4-B 

50 

37 

ED 

52 

EB 

C9 

El 

7E 

E5 

85 

85 

21 

CF 

SC 

23 

E5 

6E 

26 

SC 

87 

26 

87 

34 

28. 

02 

20 

34. 

IS 

05 

35 

20 

02 

20 

35 

El 

18 

ES 

C9 

05 

CD 

0O 

SE 

88 

28 

65 

SC 

R7 

ED 

52 

4*4> 
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4D 

62 

SB 

23 

ED 

B0 

CD 

FC 

SG 

00 

Di 

C9 

C5 

D5 

ES 

2ft 

65 

SC 

E5 

23 

ft? 

ED 

S5 

44 

4D 

1-3 

Dl 

EB 

ED 

63 

CD 

FC 

40 

CD 

30 

SE 

40 

El 

53 

Dl 

Cl 

cs 

36 

2ft 

E0 

se 

TE 

CD 

F3 

5C 

30 

ID 

01 

00 

00 

2h 

D6 

SC 

es 

51 

0R 

00 

05 

44 

4D 

El 

CD 

F3 

SC 

08 

70 

/  X 

53 

5E 

53 

S3 

53 

15 

18 

st«t 

ii 

04 

00 

FE 

ER 

20 

04 

3E 

©D 

13 

04 

FE 

55 

58 

03 

47 

ED 

81 

13 

FE 

0D 

58 

33 

FE 

0E 

50 

04 

13 

x9 

18 

RQ 

CD 

E4 

SC 

20 

67 

22 

In  t* 

t?L- 

.  3E 

3E 

a  -i 
f  4 

©5 

00 

ED 

81 

53 

R  7 

55 

E5 

5C 

ED 

4-d 

5LJ 

13 

3E 

CS 

ED 

B0 

Cg 

X*  1 

Dl 

SD 

33 

D3 

eft 

06 

5C 

01 

33 

00 

03 

S3 

S3 

SE 

S3 

ES 

51 

0R 

00 

37 

ED 

52 

El 

D8 

SE 

53 

88 

53 

15 

CD 

F3 

SC 

33 

E3 

01 

00 

00 

CS 

HH 

48 

50 

53 

ED 

SB 

ES 

sc 

01 

8S 

00 

ED 

B0 

ED 

SB 

E0 

.££. 

53 

4E 

23 

43 

53 

1ft 

FE 

8E 

CC 

34 

SD 

ED 

h8 

73 

61 

50 

F4 

IP 

FE 

0E 

C3 

CD 

in 
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SC  3.S 

P7 

CD 

23. 

D1 

5D 

33 

ca 

£h 

£0 

50 

3E 

3D 

ED 

BS 

EE 

D5 

23 

23 

4-5 

23 

4-E 

03 

ED 

4-3 

05 

3D 

CD 

BE 

3D 

Di 

El 

73 

31 

23 

E7 

01 

04- 

00 

09 

Cl 

0fi 

C3 

A7 

23 

07 

34* 

20 

02 

23 

34* 

13 

05 

35 

20 

23 

33 

CD 

Listing  three,  the  renumber  program: 

£>L_FT  a  =USR  23755 
3  IF  L»5R  £3391  THEN  STOP 
4-  POKE  24011,a-INT  (a/£56)  *25 

3:  POKE  £4 -01S.  INT  ia/25t-i  ;  LET  a 
=USR  23993:  XF  NOT  a  THEM  GO  TO 

."5 

5  LET  S=«a-i)  LET 

o$=5T.R*  s;  GO  TO  3  AND  NOT  U5R  2 

w*  REM 
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PROGRAM  AUTHORS 

Thanks  to  the  following  programmers  who  have  helped  greatly 

with  the  production  of  a  book  of  worthwhile,  interesting  games: 
LEVEL  FIVE  Paul  Toland 
CIRCUS  Paul  Toland 
JOGGER  Tim  Hartnell 
DISABLE  THAT  MINE  Paul  Toland 
COPTER  Tim  Rogers 
MAZURKA  Paul  Toland 
ALPHABATTLE  Tim  Rogers 
SMASHOUT  Ant  Hurrion  (modified  by  Tim  Hartnell) 

3-D  DRIVE  Tim  Rogers 
NORWAY  PANIC  Tim  Rogers 
DEATHRACE  2000  Tim  Hartnell  and  Tim  Rogers 
CLONE  CRAZY  Mike  O'Neill 

PIRANDELLO  Graham  Charlton  (modified  by  Tim  Hartnell) 

CHECKERS  Tim  Hartnell 

TIC-TAC-TOE  Tim  Hartnell 

NEOPHYTE  CHESS  Tim  Hartnell 

REVENGE  OF  CASTLE  DREAD  Tim  Hartnell 

JOE  CAPITALIST,  JNR.  (Lemonade  Stand)  Paul  Holmes 

SYNTAX  Tim  Rogers 

THE  WELL  Tim  Rogers 

THE  GOTHIC  GENERATOR  Tim  Rogers 

MACHINE  CODE  RENUMBER  R.  Wilkinson 
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BIBLIOGRAPHY 

There  are  many  books  which  can  help  you  gain  ideas  for  writing 
games  on  the  Spectrum.  This  list  includes  some  of  the  best  ones 
which  I've  discovered. 

Computer  Games  Books: 

40  Computer  Games  from  kilobaud  microcomputing*  Gibbs  E.A.  and  Perry,  J.  (eds) 
(Wayne  Green  Inc.,  USA  1980) 

The  Softside *  Sampler  Witham  J.  (ed.)  (Hayden  Book  Co.,  Inc.,  USA  1982) 

BASIC  Computer  Games  Ahl  D.  (ed.)  (Workman  Publishing  Co..  USA  1980) 

More  BASIC  Compu ter  Games  Ahl  D.  (ed.)  (Workman  Publishing  Co.,  USA  1980) 


General  games  books,  for  program  ideas: 

The  Way  To  Play  the  Diagram  Group  (eds.)  (Corgi,  1977) 

The  Indoor  Games  Book  Pennycook,  A.  (Faber  &  Faber  Ltd.,  1973) 

Games  for  Two  Wasley,  J.  (Proteus  Publishing  Ltd.,  1981) 

Everyman's  Indoor  Games  Brandreth,  G.  (J.M.  Dent  &  Sons  Ltd.,  Everyman 
Paperback,  1982) 

Dice  Games,  New  and  Old  Tredd,  W.E.  (The  Oleander  Press,  Cambridge,  1981) 
Discovering  Old  Board  Games  Bell  R.C.,  (Shire  Publications  Ltd.,  1980) 

*  Registered  T rade  Marks 

Readers  wishing  to  learn  more  about  programming  the 
Spectrum  may  find  material  of  interest  in  The  ZX  Spectrum 
Explored,  also  by  Tim  Hartnell  and  published  by  Sinclair  Browne 
Ltd. 


h  Sinclair-  conpuTERGUiDE 


In  this  book  Tim  Hartnell  brings  you  twenty  dynamic 
games  for  the  ZX  Spectrum.  They  range  from  board 
games  such  as  Chess  and  Pirandello,  to  arcade 
action  in  Jogger  and  Deathrace  2000,  and  include 
a  major  adventure  game,  Revenge  of  Castle  Dread. 

Every  game  is  introduced  in  detail  and,  in  most 
cases,  the  program  is  explained  line  by  line. 

The  tricks  and  techniques  the  programmers 
have  used  are  highlighted  and  Tim  Hartnell 
suggests  how  these  can  be  applied  in 
your  own  programs.  At  the  end  of  the  book 
a  chapter  is  devoted  to  suggestions  on  how 
to  improve  and  develop  programs  to  your 
own  specifications. 

Also  by  Tim  Hartnell: 

The  ZX  Spectrum  Explored 
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